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

 

 

'perl' 카테고리의 다른 글

CPAN 이용하기  (0) 2008.09.27
펄에서 특정 패턴 확인하기  (0) 2008.07.17
펄에서 List안에 List를 넣기 (또는 2차원 배열 array)  (0) 2008.06.07
Array 쪽 팁  (0) 2008.06.07
Array 다루기 #2  (0) 2008.06.05
Posted by '김용환'
,