关于sprintf

redwyz

my $x = 10.9999;

$x = sprintf ('%.2f',$x);

print $x;

output:  11.00

有什么方法可以不进位的阿?只是截取小数点后面的几位

flw

1. D:\MoChou>cat ttt.pl
   
2. my $x = 10.999;
   
3. my ($str) = ($x =~ /^(\d+\.\d\d)/);
   
4. print $str;
   
5. 
   
6. D:\MoChou>ttt
   
7. 10.99
   
8. D:\MoChou>

复制代码

redwyz

我本来就是用这个方法的,看来sprintf是无法实现了