相关疑难解决方法(0)

显示问题的示例:

• 有一个数字105;
• 除以1000(结果0.105)
• 粗化到2位小数应为:0.11

现在,几个脚本 - 基于另一个问题的答案:

这主要是经过推荐的,而且大部分是投票使用的解决方案printf.

use 5.014;
use warnings;
my $i = 105;
printf "%.2f\n", $i/1000;   #prints 0.10

但打印错误的结果.在评论 /sf/answers/128721981/ @Sinan Unur说(6次评论):

使用sprintf("%.3f",$ value)也可用于数学目的.

但是,它"有时"不起作用......就像上面一样.

另一个推荐的解决方案Math::BigFloat:

use 5.014;
use warnings;
use Math::BigFloat;
my $i = 105;

Math::BigFloat->precision(-2);
my $r = Math::BigFloat->new($i/1000);

say "$r";   #0.10 ;(

错误的结果也是如此.另一个推荐一个bignum:

use 5.014;
use warnings;
use bignum ( p => -2 );
my $i = 105;
my $r = $i/1000;
say "$r";   #0.10 ;(

又错了.(

现在工作的人: …