Perl: 거침없이 배우는 펄 - Chapter1

이 포스트의 목적

이 포스트는 '거침없이 배우는 펄(Learning Perl 5/e)' 을 읽고 느낀점과 연습문제를 푼 기록을 남기기 위해서 작성하였다.


연습문제 1

이미 포스트한 바 있지만 편의를 위해서 다시 남긴다 ;-)

#!/usr/bin/perl

use strict;
use warnings;

print "hello world\n";

연습문제 2

perldoc -u -f atan2 명령을 실행한 결과:

=over 8

=item atan2 Y,X
X X X X

Returns the arctangent of Y/X in the range -PI to PI.

For the tangent operation, you may use the C
function, or use the familiar relation:

    sub tan { sin($_[0]) / cos($_[0])  }

The return value for C is implementation-defined; consult
your atan2(3) manpage for more information.

=back

연습문제 3

'펄 맛보기' 절의 예제

@lines=`perldoc -u -f atan2`;
foreach (@lines) {
	s/\w<([^>]+)>/\U$1/g;
	print;
}

실행결과

=over 8

=item atan2 Y,X
ATAN2 ARCTANGENT TAN TANGENT

Returns the arctangent of Y/X in the range -PI to PI.

For the tangent operation, you may use the MATH::TRIG::TAN
function, or use the familiar relation:

    sub tan { sin($_[0]) / cos($_[0])  }

The return value for ATAN2(0,0) is implementation-defined; consult
your atan2(3) manpage for more information.

=back