如何在Perl中执行十进制算术？

Question

我正在研究用Perl编写的会计脚本,我想知道执行十进制算术计算的"正确"方法是什么.例如,我想确保像这样的比较正常工作:

"0.1" + "0.1" + "0.1" == "0.3"
"258.9" * "2000" == "517800"
...

在Python中我会使用Decimal值的类型,但我在Perl中做什么？

Answer 1

(注意:有Math :: Currency但它目前已被破坏).

用于Math::BigFloat将数字表示为任意精度对象.

use Math::BigFloat;

print Math::BigFloat->new(0.1) +
      Math::BigFloat->new(0.1) +
      Math::BigFloat->new(0.1) == Math::BigFloat->new(0.3);

您可以使用bignum... 自动执行此操作

use bignum;

print 0.1 + 0.1 + 0.1 == 0.3;

但!魔术只适用于数字.如果你试图将字符串添加到一起它将无法工作,魔术来得太晚了.你必须明确强迫他们成为数字.要对字符串进行编号,可以向字符串添加0,例如$a += 0.或者你可以通过开始强制一个方程式作为bignums来完成,0 +并且它会向下级联.

use bignum;

$a = "0.1";
$b = "0.1";
$c = "0.1";
$d = "0.3";

# False
print $a + $b + $c == $d;

# True
print 0 + $a + $b + $c == $d;

两个警告.

首先,这一切都需要很高的性能成本.不仅用于执行任意精度数学,而且用于所有方法和重载魔法.对它进行基准测试,看看这是否可以接受.幸运的是,bignum只升级其范围内的数字,而不是整个程序.在bignum范围之外使用这些数字也是安全的,用它们完成的任何数学也将升级.

其次,十进制将保留重要数字.Math :: BigFloat不会.