perl - 소수점 자르기

소수점 3자리로 자르고 싶은 경우.

print sprintf("%.3f", 1.2345678)."\n";
print sprintf("%.3f", -1.2345678)."\n";

결과

1.234

참고

http://perldoc.perl.org/functions/sprintf.html