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

使用 Math::BigFloat 或 bignum :

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

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

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

没有办法在全球范围内改变这一点。

sprintf("%.3f", $value); .

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

(6.02*1.25 = 7.525)

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

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

将结果视为字符串并使用 substr . 这样地:

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

如果你想做四舍五入,也要像字符串一样做。只要找到下一个角色,然后决定。

或者,您可以使用以下方法截断小数点后第三位数字后面的内容:

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