小数点の切り上げについて

質問

いつも参考にさせて頂いています。
Perl初心者です。

ある計算結果の値で小数点以下が出た場合は切上げる、
また、そうじゃない場合はそのままの値を使うというような事を
行いたいのですがどういった条件文を書けばいいのかがわかりません。

どなたか教えて下さる方がいらっしゃいましたらお願いします。

回答No.2

sakusaker7

#!/usr/bin/perl
use strict;
use warnings;

use POSIX qw/ceil/;

while (<DATA>) {
chomp;
print $_, " -> ", ceil($_), "\n";
}
my $v = 2**32+0.002;
print $v, " -> ", ceil($v), "\n";

__END__
123.0
123.0000001
124
-123.5

実行結果:
123.0 -> 123
123.0000001 -> 124
124 -> 124
-123.5 -> -123
4294967296.002 -> 4294967297
POSIXモジュールは標準添付なのでインストールする必要はありません。

お礼

ありがとうございます。
参考にさせていただきます。

回答No.1

okg00

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

こんなんでどうでしょ？

お礼

ありがとうございます。
思ったとおりになりました。