Perl で切り上げの計算をする
1 を足してから int します。負の値や整数に対しては、そのまま int です。 $one = ceil(19.1); # $one = 20 $two = ceil(-30.5); # $two = 30 $three = ceil(5); # $three = 5 sub ceil { my $var = shift; my $a = 0; $a = 1 if($var > 0 and $var != int($var)); return int($var + $a); } > このページを見る
はてなブックマーク
