如何判断一个variables在Perl中是否有数字值？
在Perl中有一个简单的方法可以让我确定一个给定的variables是否是数字？ 有些东西是：
if (is_number($x)) { ... } 会是理想的。 当使用-w开关时，不会引发警告的技术当然是首选。
使用Scalar::Util::looks_like_number() ，它使用内部的Perl C API的looks_like_number（）函数，这可能是最有效的方法。 请注意，string“inf”和“infinity”被视为数字。
例：
#!/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\n"; }
给出这个输出：
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 Scalar::Util][1] [perldoc perlapi][2]
查看CPAN模块Regexp :: Common 。 我认为它正是你所需要的，并处理所有的边缘情况（例如实数，科学记数法等）。 例如
use Regexp::Common; if ($var =~ /$RE{num}{real}/) { print q{a number}; }
原来的问题是如何判断一个variables是否是数字，而不是“是否有数字值”。
有几个操作符对数字和string操作数有不同的操作模式，其中“数字”是指任何最初是数字或曾经在数字上下文中使用的任何操作符（例如，在$x = "123"; 0+$x ，在添加之前， $x是一个string，之后它被认为是数字）。
一种方法是这样的：
if ( length( do { no warnings "numeric"; $x & "" } ) ) { print "$x is numeric\n"; }
通常数字validation是用正则expression式完成的。 这段代码将确定是否有数字，以及检查未定义的variables是否不抛出警告：
sub is_integer { defined $_[0] && $_[0] =~ /^[+-]?\d+$/; } sub is_float { defined $_[0] && $_[0] =~ /^[+-]?\d+(\.\d+)?$/; }
这里有一些阅读材料，你应该看看。
一个简单的（也许是简单的）问题的答案是$x数字的内容如下：
if ($x eq $x+0) { .... }
它将原始的$x与$x转换为数字值进行了文本比较。
不完美，但你可以使用正则expression式：
sub isnumber { shift =~ /^-?\d+\.?\d*$/; }
我不相信有任何东西正在做。 如果您想了解更多信息，请参阅检测数字的Perlmonks
rexep不完美…这是：
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中可以find一个更健壮的正则expression式。
这听起来像你想知道如果Perl认为一个variables是数字。 这是一个陷阱警告的function：
sub is_number{ my $n = shift; my $ret = 1; $SIG{"__WARN__"} = sub {$ret = 0}; eval { my $x = $n + 1 }; return $ret }
另一种select是在本地closures警告：
{ no warnings "numeric"; # Ignore "isn't numeric" warning ... # Use a variable that might not be numeric }
请注意，非数字variables将被默默地转换为0，这可能是你想要的东西。
尝试这个：
If (($x !~ /\D/) && ($x ne "")) { ... }
我觉得这很有趣
if ( $value + 0 eq $value) { # A number push @args, $value; } else { # A string push @args, "'$value'"; }
就我个人而言，我认为要走的路是依靠Perl的内部环境来使解决scheme防不胜防。 一个好的正则expression式可以匹配所有的有效数字值和非数字值（反之亦然），但是由于解释器使用相同的逻辑，所以直接依赖这个逻辑应该是更安全的。
由于我倾向于使用-w来运行我的脚本，因此我必须将“值加零”的结果与原始值进行比较， no warnings使用@ysth的基于no warnings的方法：
do { no warnings "numeric"; if ($x + 0 ne $x) { return "not numeric"; } else { return "numeric"; } }
您可以使用正则expression式来确定$ foo是否是一个数字（或不）。
看看这里： 我如何确定一个标量是一个数字
这个function适用于我：
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 if！ $ X; 如果（$ x！〜m / \ D /）{}
这是Veekay的答案略有变化，但让我解释我的理由为变化。
对未定义的值执行正则expression式会导致错误，并且会导致代码在许多环境中退出。 在运行expression式之前，testing一下是否定义了这个值或者设置了一个默认的例子，就像我在替代的例子中所做的那样，至less保存错误日志。
