プログラミング学習の記録 635.2 10章(大規模なプログラムの構築)の練習問題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) の10章(大規模なプログラムの構築), 10.10(練習問題)、2を解いてみる。

 

2.

前回作成したモジュール

Oogaboogoo/date.pm

コード(TextWrangler)

#!/usr/bin/perl
package Oogaboogoo::date;
use strict;
use warnings;

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;

今回作成した、上記のライブラリを使用するブログラム

コード

#!/usr/bin/perl
use strict;
use warnings;
require 'Oogaboogoo/date.pm';

my($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime;
$mon = Oogaboogoo::date::number_to_month_name($mon);
$year += 1900;
$wday = Oogaboogoo::date::number_to_day_name($wday);

print "Today is $wday, $mon $mday, $year\n";

入出力結果(Terminal)

$ ./my_program Today is pop, sen 4, 2011