转：perl控制小数点输出位数

参考：https://blog.csdn.net/BBka_717/article/details/7480386

例

 my $var=123.455789;

 $var=sprintf "%.2f",$var;

 print $var."\n";

 #123.46

 默认四舍五入