Perl:: 数値の切り上げ

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

sub ceil {
  my $var = shift;
  my $a = 0;
  $a = 1 if($var > 0 and $var != int($var));
  return int($var + $a);
}