Perl - オブジェクトに関する高度なトピック(UNIVERSAL)

続・初めての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) の14章(オブジェクトに関する高度なトピック)、14.7(練習問題)2を解いてみる。

2.

AUTOLOADは最後の手段でその前に、@ISA、UNIVERSALの順で検索するから。

コード(TextWrangler)

sample.pl

#!/usr/bin/env perl
use strict;
use warnings;

sub UNIVERSAL::debug{
  my $self = shift;
  print localtime . ": @_\n";
}
{ package MyDate;
  my %methods = ("day" => 3,
                 "month" => 4,
                 "year" => 5);
  my @indexes = (0,0,0,0,1,1900,0,0,0);
  sub AUTOLOAD{
    use Carp;
    our $AUTOLOAD;
    (my $method = $AUTOLOAD) =~ s/.*:://s;
    if(!( exists $methods{$method})){
      carp "メソッド名($method)が分からない";
      return;
    }
    my $index = $methods{$method};
    return (localtime)[$index] + $indexes[$index];
  }
}

MyDate->debug("Hello,","Perl!");
print "day: " , MyDate->day , "\n";
print "month: " , MyDate->month, "\n";
print "year: ", MyDate->year,"\n";
print "perl: " , MyDate->perl,"\n";

入出力結果(Terminal)

$ ./sample.pl
Fri Aug  3 16:52:19 2012: Hello, Perl!
day: 3
month: 8
year: 2012
メソッド名(perl)が分からない at ./sample.pl line 31
perl: 
$