Perl，如何确定变量值是否为数字？

Question

是否有一种独特的方法来确定变量值是否为数字，因为这些值也可以是科学记数法（例如，5.814e-10）？

Answer 1

核心模块Scalar::Util导出了looks_like_number() ，它可以访问底层的Perl API。

looks_like_number EXPR

如果perl认为EXPR是一个数字，则返回true。

Answer 2

从perlfaq4： 我如何确定标量是数字/整数/整数/浮点数 ？

    if (/\D/)            { print "has nondigits\n" }
    if (/^\d+$/)         { print "is a whole number\n" }
    if (/^-?\d+$/)       { print "is an integer\n" }
    if (/^[+-]?\d+$/)    { print "is a +/- integer\n" }
    if (/^-?\d+\.?\d*$/) { print "is a real number\n" }
    if (/^-?(?:\d+(?:\.\d*)?|\.\d+)$/) { print "is a decimal number\n" }
    if (/^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/)
            { print "a C float\n" }

还有一些常用的任务模块。

Scalar::Util （以5.8分发）提供对perl内部函数looks_like_number访问，以确定变量是否看起来像数字。

Data::Types导出使用上述和其他正则表达式验证数据类型的函数。

第三， Regexp::Common有正则表达式来匹配各种类型的数字。

这三个模块可从CPAN获得

Answer 3

还有String :: Numeric和Regexp :: Common :: number ..看起来很方便。

String :: Nummeric还有一个“与Scalar :: Util :: looks_like_number（）的比较”

Answer 4

改编自如何判断变量在Perl中是否具有数值？ -

for my $testable ( qw( 1 5.25 0.001 1.3e8 foo bar 1dd 0 ) )
{
    printf("%10s %s a number\n",
           $testable,
           isa_number($testable) ? "is" : "isn't")
}

sub isa_number {
    use warnings FATAL => qw/numeric/;
    my $arg = shift;
    return unless defined $arg;
    eval { $arg + 0; 1 };
}