Perl - 大規模なプログラムの構築(ライブラリにまとめる)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

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

1.

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

コード(TextWrangler)

#!/usr/bin/env perl package Oogaboogoo::date use strict; use warnings; my @wday = 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_wday_name{ $num = shift; die "曜日名に変換出来ません。" if $num < 0 || 7 < $num; $wday[$num]; } sub number_to_month_name{ $num = shift; die "月名に変換出来ません。" if $num < 0 || 11 < $num; $month[$num]; } 1;

メモ: パッケージなので最後の真の値を返す、1;を忘れないようにする。