如何在Perl中设置浮点精度？

Question

有没有办法设置Perl脚本的浮点精度(3位数),而不必专门为每个变量更改它？

类似于TCL的东西:

global tcl_precision
set tcl_precision 3

Answer 1

使用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 2

没有办法全局改变这一点.

如果它只是用于显示目的,那么使用sprintf("%.3f", $value);.

出于数学目的,请使用(int(($value * 1000.0) + 0.5) / 1000.0).这适用于正数.您需要将其更改为使用负数.