Perl - データのあるオブジェクト(コンストラクタ/インスタンス/セッター/ゲッター)

開発環境

• OS X Lion - Apple(OS)
• TextWrangler(Text Editor) (BBEditの機能制限無料版、light版)
• Script言語:Perl

『続・初めてのPerl 改訂版』(Randal L. Schwartz, brian d foy, Tom Phoenix 著、伊藤 直也、田中 慎司、吉川 英興 監訳、株式会社ロングテール／長尾 高弘 訳、オライリー・ジャパン、2006年、ISBN4-87311-305-9)の12章(データのあるオブジェクト),　12.15(練習問題)、1を解いてみる。

1.

やり方の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 Animal; use Carp qw(croak); use base qw(LivingCreature); sub sound { croak "動物のsoundを定義し忘れてます！" } sub speak { ref(my $class = shift) and croak "class name needed"; croak "動物のspeakメソッドは引数を取りません！" if @_; $class->SUPER::speak; } sub default_color { 'brown' } sub name { my $either = shift; ref $either ? $either->{Name} : "an unnamed $either"; } 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 set_name { my $self = shift; $self->{Name} = shift; } sub color { my $either = shift; ref $either ? $either->{Color} : $either->default_color; } sub set_color { my $self = shift; $self->{Color} = shift; } } { package Person; use base qw(LivingCreature); sub sound { "hmmmm" } } { package Cow; use base qw(Animal); sub sound { "moooo" } } { package Horse; use base qw(Animal); sub sound { "neigh" } } { package Sheep; use base qw(Animal); sub sound { "baaaah" } sub default_color { 'white' } } { package Mouse; use base qw(Animal); sub sound { "squeak" } sub speak { my $class = shift; print "a $class goes ", $class->sound, "!\n"; print "[but you can barely hear it!]\n"; } } my $tv_horse = Horse->named('Mr. Ed'); $tv_horse->set_name('Mister Ed'); $tv_horse->set_color('grey'); print $tv_horse->name, ' is ', $tv_horse->color, "\n"; print Sheep->name, ' colored ', Sheep->color, ' goes ', Sheep->sound, "\n";

入出力結果(Terminal)

$ ./perl_program Mister Ed is grey an unnamed Sheep colored white goes baaaah $

堂宇物全般の名前や色を設定するように要求されたときには、Animalクラスにデフォルト名とデフォルト色を設定しておけばいい。(上記のプログラムの場合はそれぞれdefault_name(unnamed), default_color(brown)で設定してある。)

この章周辺はまだ理解が曖昧かも。ただ、C#に似てるなあとも感じたのでコツさえ掴めばすぐ理解出来そう！