mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Monday, July 24, 2006

Perl/펄] 실수 반올림하여 정수 만들기; RoundToInt 함수


청소년 성장 드라마 '반올림'이 아니고, 소수점을 가진 숫자를 정수로 반올림하는 것입니다.

펄의 int 함수는 소수점 이하를 잘라버리기만 하지, 반올림을 하지 않더군요.


#!/usr/bin/perl
use strict; use warnings;


print &RoundToInt(2.4676);


sub RoundToInt {
  int($_[0] + .5 * ($_[0] <=> 0));
}


RoundToInt 라는 한 줄짜리 함수가 반올림 함수입니다.


2.4676 을 입력하면 2가 나오고
2.5676 을 입력하면 반올림하여 3을 반환합니다.



버그가 있을 수 있으니, 실무에 사용할 때는 테스트 과정이 필요합니다.




▶▶ [Perl/펄] 소수점 몇 째 자리에서, 엑셀 스타일 반올림 함수 - RoundXL




tag: perl
Perl | 펄

2 Comments:
At July 24, 2006 at 11:35 AM, Anonymous Anonymous said...

#!/usr/local/bin/perl
use POSIX qw(ceil floor);

$num = 1.52734

print ceil($num);

하시거나

Math::Round 모듈을 이용하셔도 됩지요..^,.^

 
At July 24, 2006 at 11:42 AM, Blogger mwultong said...

아, POSIX 에 있었군요 ^^;

 

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top