練習問題の回答をメモ。 ex11-1 #!/usr/bin/perl use strict; use warnings; { package Animal; sub speak { my $class = shift; print "a $class goes ", $class->sound, "!\n"; } } { package Cow; use base qw{Animal}; sub sound { 'moooo' } } { packag…

混乱しそうになったのでメモしておく。 結論的には、親クラスのメソッド呼び出しは 「細い矢印＋SUPER」 を使おうねというだけの話。詳しくは、以下のソース中の コメントを参照。 { package LivingCreature; sub speak { my $class = shift; print "a $clas…

練習問題の回答をメモ。 ex10-1 package Oogaboogoo; use strict; use warnings; my @day = qw(ark dip wap sen pop sep kir); sub number_to_day_name { my $num = shift @_; die "Input number must be between 0 and 6!: $!" if $num < 0 || $num > 6; $d…