如何在Perl中的任何計算中提取小數點後的前三位數字？

Question

對於像1/3那樣的簡單分割，如果我只想從分割結果中提取小數點後面的前三位數字，那怎麼辦？

Answer 1

您可以spritnf做到這一點：

my $rounded = sprintf("%.3f", 1/3); 

這不是這個sprintf的目的，但它的工作。

如果你想點後僅三個數字，你可以用數學計算做到這一點：

my $num = 1/3; 
my $part; 
$part = $1 if $num=~/^\d+\.(\d{3})/; 
print "3 digits after dot: $part\n" if defined $part; 

Answer 2

使用sprintf和一些模式匹配。詳細。

my $str; 
my $num = 1/3; 
my $res = sprintf("%.3f\n",$num); 
($str = $res) =~ s/^0\.//; 
print "$str\n";