プログラミング学習の記録 734.2 15章(Exporter)の練習問題1(useとモジュールのインポート)『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2009年、ISBN978-4-87311-427-9)

開発環境

• Mac OS X Snow Leopard (OS)
• TextWrangler(Text Editor) (いずれはBBEditを入手したい！)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix　著、伊藤 直也、田中 慎司、吉川 英興　監訳、株式会社ロングテール／長尾 高弘　訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9) の 15章(Exporter),　15.7(練習問題)、1を解いてみる。

 

1.

やり方の1つ。(「やり方は何通りもある」(TIMTOWTDI(There Is More Than One Way To Do It.)))

コード(TextWrangler)(./Oogaboogoo/date.pm)

#!/usr/bin/env perl package Oogaboogoo::date; use strict; use warnings; use Exporter; use vars qw(@ISA); @ISA = qw(Exporter); use vars qw(@EXPORT); @EXPORT = qw(day month); my @day = qw(ark dip wap sen pop sep kir); my @month = qw(diz pod bod rod sip wax lin sen kun fiz nap dep); sub day{ my $n = shift @_; die if $n < 0 && 6 < $n; $day[$n]; } sub month{ my $n = shift @_; die if $n < 0 && 11 < $n; $month[$n]; } 1;

コード(TextWrangler)(./perl_program)

#!/usr/bin/env perl use strict; use warnings; use Oogaboogoo::date qw(day month); my($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime; my $day = day($wday); $year += 1900; $mon = month($mon); print "Today is $day, $mon $mday, $year\n";

入出力結果(Terminal)

$ ./perl_program Today is sep, nap 11, 2011 $

とりあえず本章とExportモジュールのドキュメント(perldoc)を読みつつ何となく動いた感じに。ということで理解はまだ曖昧。