Monday, February 12, 2007

Perl/펄] 원주율 상수 선언; 파이 값 Constant 정의; PI, M_PI

펄에는 원주율 상수가 내장되어 있지 않더군요. 그래서 다음과 같이 직접 만들어 주어야 했습니다.

2가지 방법이 있습니다. atan2() 함수를 사용하는 것과, 직접 원주율을 적어주는 것입니다.

비주얼C의 math.h 헤더 파일에, 원주율 근사값 상수가 M_PI 라는 이름으로 정의되어 있습니다.

#define M_PI 3.14159265358979323846

위의 값을 펄의 상수로 만들어서 쓸 수도 있습니다.

그렇지만 어떤 경우든 출력 값의 정밀도는 같았습니다.

파이 값 상수 정의 출력 예제

파일명: example.pl

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

use constant PI => 4 * atan2(1, 1);

use constant M_PI => 3.14159265358979323846;

print PI, "\n";
# 출력 결과: 3.14159265358979

print M_PI, "\n";
# 출력 결과: 3.14159265358979