2009/06/07

Perl:: 数値の切り上げ

小数点の切り上げ関数のメモ。

sub ceil {
my $var = shift;
my $a = 0;
$a = 1 if($var > 0 and $var != int($var));
return int($var + $a);
}
スポンサーリンク

スポンサーリンク