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

 

1.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; { 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->wday."\n";

入出力結果(Terminal)

$ ./perl_program メソッド名が分かりません! MyDate::wday at ./perl_program line 24 Use of uninitialized value in concatenation (.) or string at ./perl_program line 24. 日: 9 月: 11 年: 2011 曜日: $

前章に続き本章もほとんど理解出来ず、時間をかけて何回も繰り返しよんで、なんとなく仕上がってなんとなく動いた感じに。。次の周では今より理解出来るようになってることを期待しつつ次問へ。