プログラム言語 Perl についての覚え書き

■ 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);
}

Posted by Kyosuke Takayama at 2003-05-24 (Sat) 10:40