Hatena::Grouparaistudy

iwasekiの日記

2006-08-18

[]1章 Perl入門 はてなブックマーク - 1章 Perl入門 - iwasekiの日記

Perlのあれこれが書かれておりましたとさ。さくっと練習問題いってみよ。

1.6 練習問題

1-1 "Hello,world!"

これはやった。

1-2 "perldoc -u -f atan2"を実行して出力を確認

コマンドを実行するだけ。

>perldoc -u -f atan2

実行結果

=over 8

=item atan2 Y,X

X<atan2> X<arctangent> X<tan> X<tangent>

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

For the tangent operation, you may use the C<Math::Trig::tan>

function, or use the familiar relation:

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

Note that atan2(0, 0) is not well-defined.

=back

1-3 サンプルプログラムを実行して1-2の実行結果と比較
#! /usr/bin/perl
@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]) }

Note that atan2(0, 0) is not well-defined.

=back