반올림(또는 버림) 함수

sub round {
    my $number = shift; 
    return int($number + .5);
}

또는

 

return int($number + .5 * ($number <=> 0));

 

 

또는

 

 

use POSIX qw(ceil floor);

$num = 42.4;

print "Floor returns: ", floor($num), "\n";

print "Ceil returns:  ", ceil($num), "\n";

<결과>

Floor returns: 42
Ceil returns:  43