有没有办法设置 Perl 脚本的浮点精度(到 3 位数字),而不必专门针对每个变量进行更改?
与 TCL 类似的东西:
global tcl_precision
set tcl_precision 3
最佳答案
使用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
关于perl - 如何在 Perl 中设置浮点精度?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1838808/