在perl中将数字视为数字的最简单方法？

Question

我有一个条件：

next if ( ! ($x or $y or $z) );

检查的逻辑是至少有一个必须在数值上非零才能继续循环。

我相信它们实际上是数字。

问题是 Perl 在内部将浮点数存储为字符串。所以检查！ $x 其中 $x='0.00' 实际上并不计算为 true： my $x = 0.00; if ( ! $x ) { never_gets_here(); }

强制对变量进行数值计算而不使该行过于冗长的最简单方法是什么？

Answer 1

我不确定你从哪里得到 Perl 将浮点数存储为字符串的想法。浮点数和字符串是不同的东西：

perl -le 'print 1 if 0.00'
perl -le 'print 2 if "0.00"'
2

如果你想在未知标量上强制数字上下文，你可以只向它添加零，例如

unless ( $x + 0 ) { ... }

Answer 2

如果你想检查一个数字是否非零，可以使用一个运算符：

next if (! ($x != 0 or $y != 0 or $z != 0) )

    $x       bool $x      $x != 0
 --------   --------    ----------------------------
    0        false       false
  '0.00'     true        false
  '0E0'      true        false
  'string'   true        false, generates 'non-numeric' warning
    ''       false       false, generates 'non-numeric' warning
   undef     false       false, generates 'non-numeric' warning

Answer 3

要检查数字是否具有非零值，您只需添加 0:

$ perl -e "print '0.02' + 0;"
0.02

，

$ perl -e "print '0.00' + 0;"
0

这在 Perl 中是假值：

$ perl -e "print (('0.00' + 0) ? 'true' : 'false');"
false

Answer 4

将零 (0) 添加到变量（就像在“awk”中一样）。

Answer 5

如果没有（或仅有）负值，您可以使用以下快捷方式，恕我直言，这比向每个单个值添加零更干净：

next if ( $x + $y + $z == 0 );