プログラミング学習の記録 729.2 11章(オブジェクト入門)の練習問題1(継承/SUPER)『続・初めての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) の 11章(オブジェクト入門),　11.11(練習問題)、2を解いてみる。

 

2.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; { package LivingCreature; sub speak{ my $class = shift; if(@_){ print "a $class goes @_\n" } else { print "a $class goes ",$class->sound,"\n"; } } } { package Person; use vars qw(@ISA); @ISA = qw(LivingCreature); sub sound{'hum'}; } { package Animal; use vars qw(@ISA); @ISA = qw(LivingCreature); sub sound{die "動物はsoundを定義しなければならない"}; sub speak{ my $class = shift; die "ドリトル博士ではないから動物とは話せない。" if @_; $class->SUPER::speak; } } { package Cow; use vars qw(@ISA); @ISA = qw(Animal); sub sound{'moooo'}; } { package Horse; use vars qw(@ISA); @ISA = qw(Animal); sub sound{'neigth'}; } { package Sheep; use vars qw(@ISA); @ISA = qw(Animal); sub sound{'baaaah'}; } { package Mouse; use vars qw(@ISA); @ISA = qw(Animal); sub sound{'squeak'} sub speak { my $class = shift; $class->SUPER::speak; print "[but you can barely hear it!]\n"; } } Person->speak; Person->speak("Hello, World!"); { package ABCDE; use vars qw(@ISA); @ISA = qw(Animal); } my @animals = qw(Cow Horse Sheep Mouse); for(@animals){ $_->speak; } # エラーをキャッチしてるか確認用 # ABCDE->speak; # Cow->speak("Hello, World!");

入出力結果(Terminal)

$ ./perl_program a Person goes hum a Person goes Hello, World! a Cow goes moooo a Horse goes neigth a Sheep goes baaaah a Mouse goes squeak [but you can barely hear it!] $

コメントを外してエラーを忘れずにキャッチしているか確認

動物のsoundを定義し忘れている場合

入出力結果(Terminal)

$ ./perl_program 動物はsoundを定義しなければならない at ./perl_program line 23. $

ドリトル博士ではないのに動物と話をしてしまっている場合

入出力結果(Terminal)

$ ./perl_program ドリトル博士ではないから動物とは話せない。 at ./perl_program line 26. $