How do I tell if a variable has a numeric value in Perl?
Perl中是否有一种简单的方法可以让我确定给定的变量是否为数字?沿着这条线的东西:
1 2
| if (is_number($x))
{ ... } |
会是理想的。当使用-w开关时,不发出警告的技术肯定是首选的。
使用Scalar::Util::looks_like_number(),它使用内部PerlC API的looks-like_number()函数,这可能是最有效的方法。请注意,字符串"inf"和"infinity"被视为数字。
例子:
1 2 3 4 5 6 7 8 9 10 11 12 13
| #!/usr/bin/perl
use warnings ;
use strict ;
use Scalar ::Util qw(looks_like_number );
my @exprs = qw(1 5.25 0.001 1 .3e8 foo bar 1dd inf infinity );
foreach my $expr (@exprs) {
print"$expr is", looks_like_number ($expr) ? '' : ' not'," a number
";
} |
给出此输出:
1 2 3 4 5 6 7 8 9
| 1 is a number
5.25 is a number
0.001 is a number
1.3e8 is a number
foo is not a number
bar is not a number
1dd is not a number
inf is a number
infinity is a number |
参见:
- Perldoc标量::实用程序
- 用于looks_like_number的Perldoc Perlapi
- 和Perl文档一样,找到函数的实际定义是相当困难的。跟踪跟踪perldoc perlapi告诉我们:测试SV的内容是否看起来像数字(或是数字)。"inf和infinity被视为数字(因此不会发出非数字警告),即使您的atof()没有对它们进行搜索。几乎没有可测试的规范…
- scalar::util中的描述很好,看起来像u number,它告诉您输入的内容是否是Perl将视为数字的内容,这不一定是这个问题的最佳答案。提到ATOF是不相关的,ATOF不是core::或posix的一部分(您应该看看strtod,它包含了ATOF和/is/posix的一部分),并且假设perl认为是一个数字的话,对c函数的有效数字输入显然是非常错误的。
- 非常好的函数:)对于UNdef和非数字字符串,返回0;对于数字字符串,返回1;对于整数,返回4352;对于浮点,返回8704:)通常检测到大于0的数字。我在Linux下测试过它。
- 我一般喜欢这个函数,但是考虑大整数。1000000是很多需要跟踪的零,乞求错误,但是1000000被视为一个三元素数组,所以Perl接受1000,但看起来像Number()说的不,这让我很难过。
- 注:本测试不考虑十六进制字符串(如0x12)。
- looks_like_number公开了内部函数,该函数与Perl用于将字符串神奇地转换为数字的函数相同。下划线、十六进制、八进制和二进制数字只能用作源中的文本,而不能用作字符串,因此,例如0+"0x15"无法正常工作。(注意,looks_like_number("0 but true")是真的!-(参考)
查看CPAN模块regexp::common。我认为它可以完全满足您的需要,并处理所有边缘情况(例如实数、科学符号等)。例如
1 2
| use Regexp ::Common;
if ($var =~ /$RE{num}{real}/) { print q{a number }; } |
最初的问题是如何判断一个变量是否是数值,而不是它是否"有一个数值"。
有几个运算符对数值和字符串操作数具有不同的操作模式,其中"numeric"表示最初是数字或曾经在数值上下文中使用过的任何内容(例如,在$x ="123"; 0+$x中,在加法之前,$x是字符串,然后将其视为数值)。
一种方法是:
1 2 3 4
| if ( length( do { no warnings "numeric"; $x &"" } ) ) {
print"$x is numeric
";
} |
- 太好了,谢谢!这正是我要找的。
- 如果我将您的例程打包到Sub中,我会得到一个奇怪的行为,因为它正确地检测到非数字值,直到我尝试第一个数字值,它也被正确地检测为真,但是,从那里开始的所有其他事情也都是真的。但是,当我把一个eval放在长度(…)部分周围时,它总是工作得很好。知道我错过了什么吗?sub numeric { $obj = shift; no warnings"numeric"; return eval('length($obj &"")'); }
- @Yogibbi:每次都重复使用相同的$obj变量;请尝试my $obj = shift;。为什么是EVE?
- 糟糕的是,我使用了my $obj = shift,当然,只是没有正确地将它从代码传输到注释中,我对它进行了一些编辑。但是,sub numeric { my $obj = shift; no warnings"numeric"; return length($obj &""); }产生相同的错误。当然,有一个秘密的全局变量可以解释这种行为,这正是我在这种情况下所期望的,但不幸的是,这并不是那么简单。同样,这也会被strict和warnings捕获。我不顾一切地试图逃避错误,但还是成功了。没有更深层次的推理,只是试错。
- 查看:sub numeric { my $obj = shift; no warnings"numeric"; return length($obj &""); }print numeric("w") ."
"; #=>0、print numeric("x") ."
"; #=>0、print numeric("1") ."
"; #=>0、print numeric(3) ."
"; #=>1、print numeric("w") ."
"; #=>1。如果在长度周围加上一个eval(""),最后一个打印将得到0,就像它应该的那样。算了吧。
- Perl版本?它对我有效(0,0,0,1,0)
这个问题的一个简单(也可能是简单)答案是$x的内容。数字如下:
1
| if ($x eq $x+0) { .... } |
它对原始$x与转换为数值的$x进行文本比较。
- 如果使用"-w"或"use warnings;",将引发警告。
- 警告可以从cx1〔10〕中删除,但更严重的问题是,在此函数下,"1.0"不是数字
- 测试$x+0 ne'就足够了。当您将文本0001时,正确的数字将被选中为非数字。测试.05文本值的时间也一样。
通常使用正则表达式进行数字验证。此代码将确定某个值是否为数字,并检查是否存在未定义的变量,以免引发警告:
1 2 3 4 5 6 7
| sub is_integer {
defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}
sub is_float {
defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/;
} |
这是一些你应该看的阅读材料。
- 这遗漏了许多案例,包括科学记数法。
- 我确实觉得这有点离题,尤其是当问者说/简单/时。许多情况,包括科学记数法,都很难简单。除非将它用于模块,否则我不会担心这些细节。有时候简单是最好的。不要把巧克力糖浆放在牛奶里做巧克力牛奶!
- ".7"可能是仍然被忽略的最简单的情况之一…最好试试/^[+-]?d*? D+$用于浮动。我的变体,也考虑到科学符号:/^[+-]?d*?D+(?)(?)E?E)D+?美元/
- \d*\.?\d+部分引入了氧化还原风险。我建议用/^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?$/或/^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?(?:(?<=[\d.])e[+-]?\d+)?$/i代替科学记数法(解释和例子)。这使用了双倍的负向前看来防止像.和.e0这样的字符串作为数字传递。它还使用了一个正的查找来确保e跟随一个数字。
我不相信有什么事可以做。关于这个主题,您想了解的比以前更多,请参阅Perlmonks关于检测数字
不完美,但您可以使用regex:
1 2 3 4
| sub isnumber
{
shift =~ /^-?\d+\.?\d*$/;
} |
- 与安德烈·沃克的回答相同的问题:漏掉了许多甚至是简单的案例,例如"7"。
雷克塞普不完美…这是:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| use Try ::Tiny;
sub is_numeric {
my ($x) = @_;
my $numeric = 1;
try {
use warnings FATAL => qw/numeric/;
0 + $x;
}
catch {
$numeric = 0;
};
return $numeric;
} |
在regexp::common中可以找到稍微更健壮的regex。
听起来您想知道Perl是否认为变量是数字。下面是一个函数,它可以捕获警告:
1 2 3 4 5 6 7
| sub is_number {
my $n = shift;
my $ret = 1;
$SIG{"__WARN__"} = sub {$ret = 0};
eval { my $x = $n + 1 };
return $ret
} |
另一种选择是在本地关闭警告:
1 2 3 4
| {
no warnings "numeric"; # Ignore"isn't numeric" warning
... # Use a variable that might not be numeric
} |
请注意,非数字变量将静默地转换为0,这可能是您想要的。
不过我觉得这个很有趣
1 2 3 4 5 6 7
| if ( $value + 0 eq $value) {
# A number
push @args, $value;
} else {
# A string
push @args,"'$value'";
} |
- 你需要更好的解释,你是说你觉得它很有趣,但它能回答这个问题吗?试着解释为什么你的答案是问题的解决方案
- 例如,我的$value是1,$value+0保持不变1。与$value相比,1等于1。如果$value是一个字符串,比如说"swadhi",那么$value+0将成为字符串"swadhi"+0=其他一些数字的ASCII值。
试试这个:
1
| If (($x !~ /\D/) && ($x ne"")) { ... } |
您可以使用正则表达式来确定$foo是否是数字。
请看这里:如何确定标量是否为数字
我个人认为,要做到这一点,必须依靠Perl的内部上下文来使解决方案具有防弹性。一个好的regexp可以匹配所有有效的数值,而不匹配任何非数值的数值(反之亦然),但是由于有一种使用相同逻辑的方法,解释器正在使用它,因此直接依赖它应该更安全。
由于我倾向于使用-w运行脚本,因此我不得不将"value+zero"的结果与原始值进行比较的想法与基于no warnings的@ysth方法相结合:
1 2 3 4
| do {
no warnings "numeric";
if ($x + 0 ne $x) { return"not numeric"; } else { return"numeric"; }
} |
这个功能对我有用:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
| sub IS_Integer ()
{
my $Text = shift;
my $Integer = 0;
if ($Text =~ /\D/)
{
$Integer = 1;
}
if ($Text =~ /^\d+$/)
{
$Integer = 1;
}
if ($Text =~ /^-?\d+$/)
{
$Integer = 1;
}
if ($Text =~ /^[+-]?\d+$/)
{
$Integer = 1;
}
if ($Text =~ /^-?\d+\.?\d*$/)
{
$Integer = 1;
}
if ($Text =~ /^-?(?:\d+(?:\.\d*)?&\.\d+)$/)
{
$Integer = 1;
}
if ($Text =~ /^([+-]?)(?=\d&\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/)
{
$Integer = 1;
}
return $Integer;
} |
如果(定义为$X&;$X!~m/d/){}或X=0如果!X;如果(X)!~m/d/){}
这是Veekay答案的微小变化,但让我解释一下我对变化的理由。
对未定义的值执行regex将导致错误spew,并导致代码在许多(如果不是大多数)环境中退出。在运行表达式之前,测试是否定义了该值,或者像我在另一个示例中所做的那样设置了一个默认的大小写,这将至少保存您的错误日志。