如何在Perl中設置浮點精度？

Question

有沒有辦法設置一個Perl腳本的浮點精度（3位數字），而不必爲每個變量專門更改？

類似的東西，以TCL的：

global tcl_precision 
set tcl_precision 3 

Answer 1

沒有辦法在全球範圍內改變這種狀況。

如果僅用於顯示目的，則使用sprintf("%.3f", $value);。

出於數學目的，請使用(int(($value * 1000.0) + 0.5)/1000.0)。這將對正數起作用。不過，您需要將其更改爲使用負數。

Answer 2

使用Math::BigFloat或bignum：

use Math::BigFloat; 
Math::BigFloat->precision(-3); 

my $x = Math::BigFloat->new(1.123566); 
my $y = Math::BigFloat->new(3.333333); 

或用bignum而不是做：

use bignum (p => -3); 
my $x = 1.123566; 
my $y = 3.333333; 

然後在這兩種情況下：

say $x;  # => 1.124 
say $y;  # => 3.333 
say $x + $y; # => 4.457 

Answer 3

我不建議用sprintf（ 「％.3f」，$ value）。

請看下面的例子： （6.02×1.25 = 7.525）

printf("%.2f", 6.02 * 1.25) = 7.52

printf("%.2f", 7.525) = 7.53

Answer 4

治療的結果作爲一個字符串，並使用substr。就像這樣：

$result = substr($result,0,3); 

如果你想要做的舍入，做它作爲字符串了。只要得到下一個角色並決定。

Answer 5

或者你可以使用以下方法來截斷小數點後第三位以後無論發生什麼事：

if ($val =~ m/([-]?[\d]*\.[\d]{3})/) { 
    $val = $1; 
}