Perl의 계산에서 소수점 이하 처음 3 자리를 추출하는 방법은 무엇입니까?

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";