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。或者你可以通过从0 +开始强制将方程式作为bignums来完成，它将沿着该行级联。

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范围之外的数字也是安全的，任何用它们完成的数学操作也会升级。

其次，Decimal将保留重要数字。 Math :: BigFloat不会。

Answer 2

以下是使用Math::Decimal进行划分的方法：

use 5.024003; # use `say'
use Math::Decimal qw( 
                     dec_mul_pow10 
                     dec_neg 
                     dec_rndiv 
                    ); 
my $num_1 = '3'; 
my $num_2 = '7'; 
my $precision = '3'; 

# You want to get three digits after the decimal, 
# so multiply dividend by 1000, divide to get an 
# integer quotient, and then divide that quotient 
# by 1000. 
my $dividend_up_some = dec_mul_pow10( $num_1, $precision ); 
# Rounding by `NEAR_EVN' is "bankers' rounding." 
my $quotient_up_some = 
          dec_rndiv( 'NEAR_EVN', $dividend_up_some, 
                     $num_2 ); 
# Move it back down to get your desired precision after 
# the decimal. 
my $quotient = 
      dec_mul_pow10( $quotient_up_some, 
                     dec_neg( $precision ) ); 
say "$num_1 / $num_2 = $quotient";

运行此程序，这是输出：

3 / 7 = 0.429

将$ precision更改为'10'，这是输出：

3 / 7 = 0.4285714286

Answer 3

最好的方法我知道如何测试绝对差值小于容差。例如：

perl -e＆＃39; $ x = 0.1 + 0.1 + 0.1; $ y = 0.3; $ q = abs（$ x - $ y）＆lt; 0.0001？＆＃34; EQUAL＆＃34; ：＆＃34; NOT EQUAL＆＃34 ;;打印$ q。＆＃34; \ n＆＃34 ;;＆＃39;

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

3 个答案: