关于数字:如何判断变量在Perl中是否具有数值?

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


查看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
"
;
}


这个问题的一个简单(也可能是简单)答案是$x的内容。数字如下:

1
if ($x  eq  $x+0) { .... }

它对原始$x与转换为数值的$x进行文本比较。


通常使用正则表达式进行数字验证。此代码将确定某个值是否为数字,并检查是否存在未定义的变量,以免引发警告:

1
2
3
4
5
6
7
sub is_integer {
   defined $_[0] && $_[0] =~ /^[+-]?\d+$/;
}

sub is_float {
   defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/;
}

这是一些你应该看的阅读材料。


我不相信有什么事可以做。关于这个主题,您想了解的比以前更多,请参阅Perlmonks关于检测数字


不完美,但您可以使用regex:

1
2
3
4
sub isnumber
{
    shift =~ /^-?\d+\.?\d*$/;
}


雷克塞普不完美…这是:

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'";
}


试试这个:

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,并导致代码在许多(如果不是大多数)环境中退出。在运行表达式之前,测试是否定义了该值,或者像我在另一个示例中所做的那样设置了一个默认的大小写,这将至少保存您的错误日志。