Perlでの切り上げ／切り捨て／四捨五入

切り上げ

これが一番問題。
あまりスマートではないが、一番簡単なのは POSIX モジュールを使用することでしょう。

 use POSIX qw(ceil);
 $test1= ceil(9.1);  # 10
 $test2 = ceil(-9.1); # -9

切り捨て

単にintで整数化すればＯＫ。

 $test1 = int(9.1) # 9

四捨五入

0.5を足した後でintで整数化します。

 $test1 = int(9.1 + 0.5) # 9
 $test1 = int(9.5 + 0.5) # 10