Perl
関数
here
ceil関数を使用すると、小数点を切り上げることができます。
use POSIX 'ceil';
$ret = ceil $num;
サンプル
ceil関数を使ったサンプルです。
use strict;
use warnings;
use POSIX 'ceil';
my $num1 = 1.5;
my $num2 = -1.5;
print "(1)小数点を切り上げる。\n";
my $num1_ceil = ceil $num1;
my $num2_ceil = ceil $num2;
print "$num1の切り上げ : $num1_ceil\n";
print "$num2の切り上げ : $num2_ceil\n\n";
Perl
関数
here
