プログラミング学習の記録 731.2 13章(オブジェクトのデストラクション)の練習問題1(サブクラスとインスタンス変数の追加)『続・初めての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) の 13章(オブジェクトのデストラクション),　13.8(練習問題)、1を解いてみる。

 

1.

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

コード(TextWrangler)

#!/usr/bin/env perl use strict; use warnings; { package Animal; use Carp qw(croak); sub named{ ref(my $class = shift) and croak "class name needed"; my $name = shift; my $self = {Name => $name, Color => $class->default_color}; bless $self, $class } sub DESTROY{ my $self = shift; } sub default_color{"brown"}; sub sound{croak "undefined a sound!"}; sub speak{ my $either = shift; print $either->name, " goes ", $either->sound, "\n"; } sub name{ my $either = shift; ref $either ? $either->{Name} : "an unnamed $either"; } sub color{ my $either = shift; ref $either ? $either->{Color} : $either->default_color; } sub set_name{ ref(my $self = shift) or croak "instance variable needed"; $self->{Name} = shift; } sub set_color{ ref(my $self = shift) or croak "instance variable needed"; $self->{Color} = shift; } } { package Horse; our @ISA = qw(Animal); sub sound{'neigth'}; } { package RaceHorse; our @ISA = qw(Horse); dbmopen (our %STANDINGS, "standings", 0666) or die "Can't access standings dbm: $!"; sub named{ my $self = shift->SUPER::named(@_); my $name = $self->name; my @standings = split ' ', $STANDINGS{$name} || "0 0 0 0"; @$self{qw(wins places shows losses)} = @standings; $self; } sub DESTROY{ my $self = shift; $STANDINGS{$self->name} = "@$self{qw(wins places shows losses)}"; $self->SUPER::DESTROY; } sub won {shift->{wins}++;} sub placed{shift->{places}++;} sub showed{shift->{shows}++;} sub lost{shift->{losses}++;} sub standings{ my $self = shift; join ", ", map "$self->{$_} $_", qw(wins places shows losses); } } for ((1..4)){ my $runner = RaceHorse->named('Billy Boy'); $runner->won; print $runner->name, " has standings ", $runner->standings, "\n"; }

入出力結果(Terminal)

$ ./perl_program Billy Boy has standings 1 wins, 0 places, 0 shows, 0 losses Billy Boy has standings 2 wins, 0 places, 0 shows, 0 losses Billy Boy has standings 3 wins, 0 places, 0 shows, 0 losses Billy Boy has standings 4 wins, 0 places, 0 shows, 0 losses $

この章はほとんど理解出来てないかも。。とりあえずは意図した通りに表示されたので、次の周では今より理解出来るようになってることを期待しつつ次章へ。