带有0前缀的perl中的bug

Question

当我尝试执行以下命令(01434.210 instead of 1434.210)

时

$val=22749.220-(21315.010+01434.210)
print $val

我得到这些输出

output 638.207900000001

但是根据我的说法，输出必须为0。

我想念什么？

Answer 1

文字数字中的前导0使Perl解释我以8为底的值：

 123   # 123, in decimal
0123   # 123 in octal, but 83 in decimal

对于转换为数字的字符串，这是不同的。在这些Perl中，忽略了前导0。字符串到数字的转换仅以10为底进行处理：

 "123" + 0   # 123
"0123" + 0   # still 123

在注释的示例中，您将文字数字转换为带前导零的字符串。当您将该字符串转换回其数字形式时，您将获得与开始时相同的值：

$val=sprintf("%05d",1434);   # converting 1434 to the string "01434"
print $val; print "\n";      # still a string
print $val+21315;            # "01434" + 21315 => 1434 + 21315
print "\n"; 
print 01434+21315;           # oct(1434) + 21315 => 796 + 21315

前导零表示法有助于某些通常使用八进制数字的内置程序，例如那些处理unix权限的内置程序：

chmod 0644, @files