Perl_控制输出小数点位数_sprintf
例
my $var=123.454789;
$var=sprintf "%.2f",$var;
print $var."\n";
#123.45
例
my $var=123.455789;
$var=sprintf "%.2f",$var;
print $var."\n";
#123.46
默认四舍五入
例:
输出百分比:
my $var1=0.456789;
$var1=sprintf "%.4f",$var1;
$var1*=100;
print $var1."%\n";
#45.68%