Perl
›
関数
›
here
小数点を切り下げるには、POSIXモジュールのfloor関数を使用します。
use POSIX 'floor';
my $ret = floor $num;
サンプル
小数点を切り下げるサンプルです。
use strict;
use warnings;
use POSIX 'floor';
my $num1 = 1.5;
my $num2 = -1.5;
print "(2)小数点を切り下げる。\n";
my $num1_floor = floor $num1;
my $num2_floor = floor $num2;
print "$num1の切り下げ : $num1_floor\n";
print "$num2の切り下げ : $num2_floor\n";
Perl
›
関数
›
here