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

 

2.

10章の練習問題1で作ったOogaboogooライブラリをuseでインポートできるモジュールに作り直したもの。

前問のコードを少し書き直せば完成！

コード(TextWrangler)

#!/usr/bin/perl package Oogaboogoo::date; use strict; use warnings; use Exporter; our @ISA = qw(Exporter); our @EXPORT=qw(number_to_day_name number_to_month_name); # 前問のコードに追加した箇所 our %EXPORT_TAGS = (all => [@EXPORT]); # 解答をみたら以下のようにリファレンスにしてもいいみたい # our %EXPORT_TAGS = (all => \@EXPORT); 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 number_to_day_name{ my $num = shift @_; die if $num < 0 or 6 < $num; $day[$num]; } sub number_to_month_name{ my $num = shift @_; die if $num < 0 or 11 < $num; $month[$num]; } 1;

allというエクスポートタグを使ってモジュールのすべてのサブルーチン名をインポートする、テスト。

コード(TextWrangler)

#!/usr/bin/perl use strict; use warnings; # qw(:all)で読み込む use Oogaboogoo::date qw(:all); my($sec, $min, $hour, $mday, $mon, $year, $wday)=localtime; $wday = number_to_day_name($wday); $mon = number_to_month_name($mon); $year += 1900; print "Today is $wday, $mon $mday, $year\n";

入出力結果(Terminal)

$ ./my_program Today is sep, sen 12, 2011