解决方法
http://stackoverflow.com/questions/37020135/perl-floor-function-giving-error-undefined-subroutine-mainfloor
sub floor {
my ($n) = @_; my $int_n = int($n); $n < 0 && $int_n != $n ? $int_n - 1: $int_n; }
解决方法
http://stackoverflow.com/questions/37020135/perl-floor-function-giving-error-undefined-subroutine-mainfloor
sub floor {
my ($n) = @_; my $int_n = int($n); $n < 0 && $int_n != $n ? $int_n - 1: $int_n; }
转载于:https://www.cnblogs.com/bainiaoli/p/6673871.html