Perl - オブジェクト入門(@ISA, our)

続・初めてのPerl 改訂版
Randal L. Schwartz
brian d foy, Tom Phoenix 著

開発環境

• 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) の11章(オブジェクト入門),　11.11(練習問題)1を解いてみる。

その他参考書籍

• プログラミングPerl〈VOLUME1〉
• プログラミングPerl〈VOLUME2〉
• Perlクックブック〈VOLUME1〉
• Perlクックブック〈VOLUME2〉

1.

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use 5.016;
binmode STDIN, ':utf8';
binmode STDOUT, ':utf8';

{package Animal;
  sub speak{
    my $class = shift;
    print " a $class goes ", $class->sound, "!\n";
  }
}

{package Cow;
  our @ISA = qw(Animal);
  sub sound{'mooo'}
}

{package Horse;
  our @ISA = qw(Animal);
  sub sound{'neigh'}
}

{package Sheep;
  our @ISA = qw(Animal);
  sub sound{'baaaah'}
}

{package Mouse;
  our @ISA = qw(Animal);
  sub sound{ 'squeak' }
  sub speak{
    my $class = shift;
    $class->SUPER::speak;
    print "[but you can barely hear it!]\n";
  }
}

print "小動物の名前(Cow/Horse/Sheep/Mouse)を入力(空文字で終了)\n";
my @backyard = ();
while(1){
  chomp(my $animal = <STDIN>);
  given($animal){
    when(/^\s*$/){ last;}
    when(/cow/i){$animal = "Cow";}
    when(/horse/i){$animal = "Horse";}
    when(/sheep/i){$animal = "Sheep";}
    when(/mouse/i){$animal = "Mouse";}
    default {print "入力を確認してください\n"; next;}
  }
  push @backyard, $animal;
}

print map{ $_->speak } @backyard;

入出力結果(Terminal)

$ ./sample.pl
小動物の名前(Cow/Horse/Sheep/Mouse)を入力(空文字で終了)
dog
入力を確認してください
cow
horse
Sheep
Mouse
mouse
sheep
Horse
COW

 a Cow goes mooo!
 a Horse goes neigh!
 a Sheep goes baaaah!
 a Mouse goes squeak!
[but you can barely hear it!]
 a Mouse goes squeak!
[but you can barely hear it!]
 a Sheep goes baaaah!
 a Horse goes neigh!
 a Cow goes mooo!
$