如何确定Perl中变量是否具有数值?


83

Perl中是否有一种简单的方法可以让我确定给定变量是否为数字?类似于以下内容:

if (is_number($x))
{ ... }

将是理想的。-w使用开关时不会发出警告的技术无疑是首选。

Answers:


128

使用Scalar::Util::looks_like_number()内部Perl C API的looks_like_number()函数的Use,这可能是最有效的方法。请注意,字符串“ 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

也可以看看:


1
而且像往常一样,在perl docs中,很难找到函数功能的实际定义。按照以下说明perldoc perlapi告诉我们:测试SV的内容是否看起来像数字(或是数字)。“ Inf”和“ Infinity”被视为数字(因此不会发出非数字警告),即使您的atof()不会使用它们也是如此。几乎没有一个可测试的规范...

3
Scalar :: Util中的描述很好,looks_like_number会告诉您输入是否被Perl视为数字,这不一定是此问题的最佳答案。提到atof无关紧要,atof不是CORE ::或POSIX的一部分(您应该查看包含atof和/ is /属于POSIX的一部分的strtod),并假设Perl认为数字是有效的数字输入C函数显然是非常错误的。
MkV 2012年

非常好的函数:)对于undef和非数字字符串返回0,对于数字字符串返回1,对于整数返回4352,对于浮点数返回8704 :)通常检测到> 0数字。我已经在linux下测试过了。
Znik

1
我总体上喜欢此函数,但考虑使用大整数。1000000是很多零,可以跟踪,乞求错误,但是1,000,000被视为三元素数组,因此Perl接受1_000_000,但looks_like_number()表示不。让我伤心。
Dave Jacoby 2015年

注:十六进制字符串喜欢0x12没有通过这个测试考虑的数字。
亚当·卡兹

23

出CPAN模块Regexp :: Common。我认为它完全可以满足您的需求并处理所有极端情况(例如,实数,科学计数法等)。例如

use Regexp::Common;
if ($var =~ /$RE{num}{real}/) { print q{a number}; }

23

最初的问题是如何判断变量是否为数字,而不是“是否具有数字值”。

有一些运算符对数字和字符串操作数具有不同的操作模式,其中“数字”表示最初是数字或曾经在数字上下文中使用的任何内容(例如$x = "123"; 0+$x,在中,加号之前$x是字符串,其后是字符串)被视为数字)。

一种说法是:

if ( length( do { no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}

如果启用了按位功能,则该功能仅使&一个数字运算符并添加一个单独的字符串&.运算符,您必须将其禁用:

if ( length( do { no if $] >= 5.022, "feature", "bitwise"; no warnings "numeric"; $x & "" } ) ) {
    print "$x is numeric\n";
}

(按位在perl 5.022和更高版本中可用,如果您use 5.028;或更高版本,则默认情况下启用。)


非常好,谢谢!这正是我想要的。
Juan A. Navarro

如果将您的例程打包到一个子例程中,则会出现一个奇怪的行为,因为它会正确检测到非数字值,直到尝试出第一个数值(也可以正确检测为真),然后再进行其他操作也是如此。但是,当我在length(...)部分周围放置一个评估时,它一直都能正常工作。知道我缺少什么吗?sub numeric { $obj = shift; no warnings "numeric"; return eval('length($obj & "")'); }
yogibimbi

@yogibimbi:您每次都重复使用相同的$ obj变量;尝试一下my $obj = shift;。为什么要评估?
ysth

糟糕,我使用过my $obj = shift,当然,只是没有正确地将其从代码转移到注释中,我对其进行了一些编辑。但是,sub numeric { my $obj = shift; no warnings "numeric"; return length($obj & ""); }会产生相同的错误。当然,拥有一个秘密的全局变量可以解释这种行为,这正是我在这种情况下所期望的,但是不幸的是,这并不是那么简单。另外,这将被strict&捕获warnings。我尝试了一次评估,试图消除错误,并且成功了。没有更深入的推理,只是反复试验。
yogibimbi

检查出来:sub numeric { my $obj = shift; no warnings "numeric"; return length($obj & ""); } print numeric("w") . "\n"; #=>0print numeric("x") . "\n"; #=>0print numeric("1") . "\n"; #=>0print numeric(3) . "\n"; #=>1print numeric("w") . "\n"; #=>1。如果在长度附近放置一个eval(''),则最后一次打印将给出0,就像应该的那样。去搞清楚。
yogibimbi

9

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

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

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


1
如果您使用“ -w”或“使用警告;”,则会抛出警告。
德里克公园

1
可以删除警告,$x eq (($x+0)."")但更严重的问题是,在此功能下,“ 1.0”不是数字
同名,2015年

1
测试$ x + 0 ne''就足够了。当您输入0001时,正确的数字将被检查为非数字。与测试“ .05”文本值时相同。
Znik

8

通常,数字验证是​​通过正则表达式完成的。此代码将确定某些内容是否为数字,并检查未定义的变量以免引发警告:

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

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

这是您应该阅读的一些阅读材料


2
我确实认为这有点偏离,特别是当问问者说/ simple /时。许多情况,包括科学计数法,都不是那么简单。除非将其用于模块,否则我不会担心此类细节。有时候简单是最好的。不要将巧克力糖浆放入牛中来制作巧克力牛奶!
osirisgothra 2014年

'.7'可能是仍然遗漏的最简单的情况之一...最好尝试对浮点数使用/^[+-]?\d*\.?\d+$/。我的变体也考虑科学计数法:/^[+
空加瓜

\d*\.?\d+部分介绍了ReDoS风险。我建议/^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?$//^[+-]?(?!\.(?!\d)|$)\d*(?:\.\d*)?(?:(?<=[\d.])e[+-]?\d+)?$/i包括科学符号(解释和示例)。这使用了两倍的负前瞻,也可以防止像.和这样的字符串.e0作为数字传递。它还使用正向后视来确保e跟随数字。
亚当·卡兹

3

不完美,但您可以使用正则表达式:

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

与安德鲁克答案相同的问题:错过了许多甚至简单的案例,例如'.7'–阿
空加瓜


2

可以在Regexp :: Common中找到更强大的regex 。

听起来您想知道Perl是否认为变量是数字的。这是一个捕获警告的函数:

sub is_number{
  my $n = shift;
  my $ret = 1;
  $SIG{"__WARN__"} = sub {$ret = 0};
  eval { my $x = $n + 1 };
  return $ret
}

另一个选择是在本地关闭警告:

{
  no warnings "numeric"; # Ignore "isn't numeric" warning
  ...                    # Use a variable that might not be numeric
}

请注意,非数字变量将被静默转换为0,这可能仍然是您想要的。


2

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

1

试试这个:

If (($x !~ /\D/) && ($x ne "")) { ... }

1

我发现这很有趣

if ( $value + 0 eq $value) {
    # A number
    push @args, $value;
} else {
    # A string
    push @args, "'$value'";
}

您需要说明一个更好的方法,您说的是让您发现它很有趣,但是它可以回答操作问题吗?尝试解释为什么您的答案是所提出问题的解决方案
Kumar Saurabh 2015年

例如,我的$ value为1,$ value + 0保持不变1.通过与$ value 1进行比较,等于1。如果$ value是字符串,则说“ swadhi”,然后$ value + 0成为字符串“ swadhi”的ascii值。 + 0 =其他数字。
Swadhikar

0

我个人认为,要走的路是依靠Perl的内部环境使解决方案变得防弹。一个好的正则表达式可以匹配所有有效的数字值,而不匹配任何非数字的数字值(反之亦然),但是由于有一种使用解释器使用的相同逻辑的方法,因此直接依赖该表达式应该更安全。

由于我倾向于使用来运行脚本-w,因此我不得不将no warnings基于“ yyth ”的结果与原始值进行比较的思想与@ysth的基本方法结合起来:

do { 
    no warnings "numeric";
    if ($x + 0 ne $x) { return "not numeric"; } else { return "numeric"; }
}


-1

if(定义$ x && $ x!〜m / \ D /){}或$ x = 0 if!$ x; 如果($ x!〜m / \ D /){}

这与Veekay的回答略有不同,但让我解释一下我做出此更改的原因。

对未定义的值执行正则表达式会导致错误喷出,并且会导致代码在很多(如果不是大多数)环境中退出。在运行表达式之前测试该值是否已定义或设置默认大小写(如我在另一个示例中所做的那样)至少会保存您的错误日志。

By using our site, you acknowledge that you have read and understand our Cookie Policy and Privacy Policy.
Licensed under cc by-sa 3.0 with attribution required.