Perl 转换为 int 错误但仅限于特定数字

Question

下面的 Perl 代码将浮点数转换为错误的整数

use strict;

my $zahl =297607.22000;
$zahl=$zahl * 100;
print "$zahl\n";
my $text=sprintf ("%017d",$zahl);
print $text;

其输出是：

29760722
00000000029760721

事实是，您可以将给定的数字更改为其他数字，并且它可以工作。

知道这里出了什么问题吗？还是 Perl 只是做错了？

感谢您的帮助！

Answer 1

这与常见问题解答相关（为什么我得到了很长的小数）。 $zahl 未正确舍入，它向下舍入到下一个较小的整数。

Answer 2

22/100 是二进制周期数，就像 1/3 是十进制周期数一样。将其精确地存储在浮点数中需要无限的存储空间。

$ perl -e'$_="297607.22000"; $_*=100; printf "%.20f\n", $_'
29760721.99999999627470970154

int 和 sprintf %d 截断小数，因此最终得到 29760721。print 和 sprintf %f 四舍五入，这样你就可以获得想要的结果。

$ perl -e'$_="297607.22000"; $_*=100; printf "%017.0f\n", $_'
00000000029760722

Answer 3

当您进行浮点乘以 100 时，结果将类似于 29760721.9999999963。然后，当您将 %d 转换为整数时，该值将被截断为 29760721。

尝试 sprintf('%.10f', $zahl) 你应该能够看到这一点。

Answer 4

您必须非常小心浮点数并将它们视为定点。由于内置函数中可能发生各种转换，有时一个整数转换可能与另一个不完全相同。看来这种情况在 x.22 数字上发生过很多次：

use strict;

my $n = 0;
for (0 .. 10_000_000) {
    my $float = 100 * "$_.22";

    my $str = "$float";
    my $int = int $float;

    if ($str ne $int) {
        $n++;
        #say "$float, $str, $int";
    }
}

say "n = $n";

在我的系统上打印

n = 76269

。

需要仔细查看 Perl 源代码才能了解确切的转换差异在哪里。

我建议，如果您要使用定点数，请将它们全部转换为整数（使用通用转换函数，最好将源数字视为字符串），然后在 下使用它们使用integer; pragma 它将禁用浮点数。