my $a= '4.4';
my $b='25';
my $c=$a*$b;
my $d=120-$c;
print($d);
结果为: 9.99999999999999 为什么不是 10？

$d=110-$c;
print($d);

结果为：-1.4210854715202e-14  为什么不是 0？

[此贴子已经被作者于2022-8-28 10:37编辑过]

浮点十进制值通常没有完全相同的二进制表示形式。这是 CPU 所采用的浮点数据表示形式的副作用。为此，可能会经历一些精度丢失，并且一些浮点运算可能会产生意外的结果。
导致此行为的原因是下面之一：

　　十进制数的二进制表示形式可能不精确。
　　使用的数字之间类型不匹配（例如，混合使用浮点型和双精度型）。
PERL实际上把整数存在你的计算机中的浮点寄存器中，所以实际上被当作浮点数看待。在多数计算机中，浮点寄存器可以存贮约16位数字，长于此的被丢弃。整数实为浮点数的特例。
这个应该是数字计算时精度的问题导致的