perl - 如何在 Perl 中使用 sprintf 来获得最多 2 位小数的浮点变量而不被四舍五入

Question

考虑：

my $var = 37.43745;
my $res = sprintf("%.2f",$var);
print $res;

上面的代码将输出为 37.44。但我希望输出仅为 37.43。如何在 Perl 脚本中使用 sprintf 获取它？

Answer 1

my $var = 37.43745;

my $res = sprintf("%.2f", int($var * 100) / 100);

print $res;

Answer 2

$var= int($var*100)/100;

我猜这将是最简单的解决方案。