perl - Perl不一致的负零结果

Question

我有以下代码:

my $m=0;
my $e =0 ;
my $g=0;

my $x=  sprintf( "%0.1f", (0.6*$m+ 0.7 * $e-1.5)*$g);

print $x; 

当我运行脚本时，结果是-0.0而不是0.0。有人可以解释为什么以及如何将其更改为0.0。

Answer 1

首先，这与Perl无关。是您的处理器返回-0.0。您将在其他语言中看到相同的行为。

您问为什么，大概问为什么这很有用。老实说，我不知道。一些科学家和工程师可能会利用它。

+0.0表示“零或在正的一面稍大一些”。

-0.0表示“负数为零或稍大一些的东西”。

您还问如何摆脱标志。

负零为假，因此$x || 0可以解决问题。