이 포스트의 목적

이 포스트는 '거침없이 배우는 펄(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

저작자표시 비영리 동일조건

+ Recent posts

티스토리툴바