999 ... 9是Perl中的真实数字吗？

Question

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

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

对于上面提到的代码,如果我们给出输入999999999999999999999999999999999999999999,它给出的输出不是实数.

为什么它表现得那样？

我忘了再说一件事:

如果我使用此代码$x作为上述值:

if($x > 0 || $x <= 0 ) {
print "Real";
}

输出是real.

这怎么可能？

Answer 1

$ perl -e 'print 999999999999999999999999999999999999999999'
1e+42

即Perl对此数字使用科学表示,这就是你的正则表达式不匹配的原因.

Answer 2

使用Scalar :: Util(这是一个核心模块)中的looks_like_number函数.

use Scalar::Util qw( looks_like_number );

say "Number" if looks_like_number 999999999999999999999999999999999999999999;

# above prints "Number"