プログラミング学習の記録 733.2 14章(オブジェクトに関する高度なトピックス)の練習問題2(UNIVERSALメソッド)『続・初めての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) の 14章(オブジェクトに関する高度なトピックス),　14.7(練習問題)、2を解いてみる。

 

2.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; sub UNIVERSAL::debug{ print "MyDateオブジェクトからdebugメソッドを呼び出す\n"; } { package MyDate; use vars qw($AUTOLOAD); use Carp; my %methods = (date => 3, month => 4, year => 5); my @start = qw(0 0 0 0 1 1900 0 0 0); sub new {bless {}, $_[0]} sub DESTROY{} sub AUTOLOAD{ (my $method = $AUTOLOAD) =~ s/.*:://s; unless(exists $methods{$method}){ carp "メソッド名が分かりません! $AUTOLOAD"; return; } my $index = $methods{$method}; return (localtime)[$index] + $start[$index]; } } my $date = MyDate->new(); print "日: ".$date->date."\n". "月: ".$date->month."\n". "年: ".$date->year."\n"; $date->debug;

入出力結果(Terminal)

$ ./perl_program 日: 10 月: 11 年: 2011 MyDateオブジェクトからdebugメソッドを呼び出す $

前問のwdayの呼び出しと違ってdebugの呼び出しがAUTOLOADメカニズムに引っかからないのは、今回のコードにはUNIVERSALメソッドがあり、最終手段のAUTOLOADを探す前にUNIVESALを検索するから。