如何用sprintf在Perl中獲得高達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; 

這是我猜的最簡單的解決方案。