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