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

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

类似于TCL的东西：

global tcl_precision
set tcl_precision 3

解决方法

没有办法全局改变这个

如果它只是为了显示目的,那么使用sprintf(“％3f”,$value);

对于数学目的(int(($value * 1000.0)0.5)/ 1000.0).这对正数是有效的.需要改变它与否负数.