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; 

と、自動的にこれを行うことができますが！魔法はの番号にしか作用しません。一緒に文字列を追加しようとすると、それは動作しません、魔法は遅すぎます。明示的に数字にする必要があります。文字列を数値化するには、$a += 0のように文字列に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; 

2つの注意点。

まず、このすべてが大きなパフォーマンスコストになります。任意の精度の計算を行うだけでなく、すべてのメソッドとオーバーロードマジックのために。これが許容可能かどうかを判断するためにベンチマークしてください。幸いにもbignumは、プログラム全体ではなく、そのスコープ内の数字だけをアップグレードします。 bignumのスコープ外の数字を使用することも安全です。それらの数字もアップグレードされます。

次に、Decimalは有効数字を保持します。 Math :: BigFloatはできません。

Answer 2

私が知っている最良の方法は、絶対差が公差未満であることでテストすることです。例えば：

perl -e '$ x = 0.1 + 0.1 + 0.1; $ y = 0.3; $ q = abs（$ x - $ y）< 0.0001？ "等号"： "等しくない"; $ qを印刷します。 "\ n"; '