如何在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;

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