Perl で切り上げを計算する関数を書いてみた

Perl で数値を切り上げる関数（RoundUp）を書いてみました。引数は１つで、次のように使います。

 
my $res = RoundUp($numeric);
 

ソースは以下の通りです。

sub RoundUp {
  my $numeric = shift;
  
  if(!defined($numeric) || $numeric =~ /[^0-9\.-]/){
    return undef;
  }
  
  my $int = int($numeric);
  if($numeric > 0){
    if($numeric > $int){
      $int += 1;
    }
  }
  return $int;
}
 

数値以外の引数を渡すと、Undef（未定義値）を返します。

Enjoy!

関連エントリー
　・Perl で切り下げを計算する関数を書いてみた
　・四捨五入を計算するアルゴリズム（Perl によるサンプルプログラムあり）