鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾なわ申鐃熟わ申鐃塾縁申鐃獣駕申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸澆鐃緒申鐃緒申任鐃夙�鐃緒申鐃緒申鐃緒申討鐃緒申鐃塾でわ申鐃緒申

cover
Perl Best Practices
 Damian Conway
[邦鐃緒申:Perl鐃駿ワ申鐃夙プラク鐃銃ワ申鐃緒申]
鐃俊ワ申鐃緒申鐃緒申鐃塾ほわ申鐃循わ申 Kansai.pm鐃緒申8鐃緒申漾鐃緒申謄鐃緒申鵐阿帽圓辰討鐃緒申泙鐃緒申鐃�@鐃緒申造鐃緒申鐃緒申
鐃緒申鐃緒申鐃銃￥申Perl鐃塾ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙指醐申鐃祝わ申 鐃緒申鐃獣駕申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸澆呂覆鐃�

鐃緒申鐃縦わ申鐃書こわ申鐃夙思ってわ申鐃緒申鐃緒申鐃宿￥申鐃緒申鐃順う鐃宿わ申鐃緒申鐃緒申鐃緒申覆里如鐃�

鐃緒申鐃緒申鐃叔わ申鐃緒申箸鐃緒申董鐃�name,uri鐃夙わ申鐃緒申鐃緒申弔離鐃緒申鵐好鐃緒申鐃緒申竸鐃緒申鐃緒申鐃縦ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申討澆泙鐃緒申鐃�

InsideOut.pm 
{
    package InsideOut;
    use strict;
    use warnings;
    my %objects;
    sub new {
        my $class = shift;
        bless \eval{ my $scalar }, $class;
    }
    sub DESTROY{
        my $self = shift;
        delete $objects{$self+0};
    }
    sub name{
       my $self = shift;
       $objects{$self+0}{name} = shift if @_;
       $objects{$self+0}{name};
    }
    sub uri{
       my $self = shift;
       $objects{$self+0}{uri} = shift if @_;
       $objects{$self+0}{uri};
    }
    1;
}
insideout.pl 
use strict;
use warnings;
use InsideOut;
use Data::Dumper;

my $o = InsideOut->new();
$o->name("dankogai");
$o->uri("http://blog.livedoor.jp/dankogai/");
print $o->name, ",", $o->uri, "\n";
print Dumper $o;

鐃緒申鐃緒申鐃叔￥申insideout.pl鐃緒申孫圓鐃緒申討澆鐃夙￥申鐃淑駕申鐃塾よう鐃祝なわ申泙鐃緒申鐃�

% perl insideout.pl
dankogai,http://blog.livedoor.jp/dankogai/
$VAR1 = bless( do{\(my $o = undef)}, 'InsideOut' );

鐃緒申鐃銃わ申鐃縮り、鐃塾わ申鐃緒申accessor鐃緒申鐃縮わ申鐃緒申鐃緒申鐃祝は「ワ申鐃藷タワ申鐃術随申鐃竣はワ申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申里法鐃緒申鐃緒申屮鐃緒申鐃緒申鐃緒申箸鐃緒申鐃夙は駈申鐃獣ぽでわ申鐃緒申

鐃緒申鐃緒申鐃叔￥申InsideOut.pm鐃塾誌申鐃夙みわ申茲�鐃緒申鐃銃みまわ申鐃緒申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙は駈申鐃獣ぽわ申blessed scalar reference鐃叔わ申鐃緒申Perl鐃塾常申隋�鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申blessed reference鐃叔わ申鐃緒申于鐃緒申任鐃�OK鐃淑ので￥申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃殉わ申鐃緒申

鐃緒申鐃緒申accessor鐃薯見てみまわ申鐃順う鐃緒申$objects{$self+0}{name}鐃夙は逸申鐃塾なわ申任鐃緒申腓�?$self+0鐃緒申鐃緒申鐃旬わ申鐃銃みまわ申鐃順う鐃緒申鐃緒申鐃緒申楼鐃緒申里覆鐃叔わ申鐃順う鐃緒申?鐃緒申単鐃淑ワ申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃獣て実醐申鐃緒申鐃銃まわ申鐃順う鐃緒申

% perl -MCGI -le '$q=CGI->new; printf "%s,%d,0x%x\n", $q, $q+0, $q+0'
CGI=HASH(0x1801180),25170304,0x1801180

鐃緒申鐃緒申鐃淑のでわ申鐃緒申鐃緒申侫鐃緒申鐃藷スわ申鐃緒申優鐃緒申鐃銃ワ申鐃緒申鐃夙わ申評鐃緒申鐃緒申鐃緒申函鐃緒申鐃緒申疋譽刻申鐃緒申屬辰討鐃緒申泙鐃緒申鐃緒申鐃緒申鐃熟各ワ申侫鐃緒申鐃藷スに醐申有鐃淑ので￥申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申ID鐃祝なわ申泙鐃緒申鐃�accessor鐃熟わ申鐃緒申ID鐃薯キ￥申鐃祝わ申鐃緒申鐃熟ッワ申鐃遵、%objects鐃祝ワ申鐃緒申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃殉わ申鐃緒申

鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申%objects鐃熟レキ鐃緒申鐃緒申鐃緒申鐃術随申鐃叔わ申鐃緒申InsideOut.pm鐃塾逸申鐃瞬鰹申側鐃緒申{}鐃塾鰹申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申任鐃緒申覆鐃緒申里任鐃緒申鐃�accessor鐃緒申鐃縮わ申鐃緒申鐃緒申鐃緒申鐃緒申泙鐃緒申鵝�わ申鐃緒申如鐃�Perl 5鐃叔も隠鐃獣駕申鐃緒申鐃緒申能鐃叔わ申鐃暑こ鐃夙わ申鐃緒申鐃緒申鐃緒申泙鐃緒申鐃緒申鐃�

鐃緒申鐃緒申object鐃緒申鐃緒申鐃緒申鐃緒申辰討鐃緒申鐃叔￥申鐃緒申鐃緒申鐃緒申鐃祝わ申鐃暑。鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申納鐃緒申鐃緒申鐃緒申譴随申鐃緒申屮鐃緒申鐃緒申鐃緒申箸鐃�Inside-Out Object鐃夙呼びまわ申鐃緒申

鐃緒申鐃塾縁申佞鐃緒申覆鐃緒申鐃出なわ申覆鐃緒申里蓮鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申両鐃順、DESTROY鐃緒申必鐃緒申鐃緒申鐃緒申鐃緒申鐃銃わ申鐃緒申必鐃竣わ申鐃緒申鐃緒申泙鐃緒申鐃緒申如鐃緒申鐃緒申魯鐃緒申屮鐃緒申鐃緒申鐃緒申箸鐃緒申鐃祝はなわ申鐃塾で￥申鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃祝器申鐃緒申鐃緒申鐃楯に￥申鐃緒申鐃緒申鐃宿鰹申鼎鐃緒申鐃緒申如鐃緒申鐃緒申蓮鐃�%objects鐃緒申鐃緒申鐃緒申鐃暑ス鐃緒申鐃緒申鐃緒申鐃緒申鐃�DESTROY鐃叔削申鐃緒申鐃緒申討鐃緒申必鐃竣わ申鐃緒申鐃緒申里任鐃緒申鐃�

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申Damian Conway鐃塾わ申鐃緒申鐃緒申鐃緒申鐃緒申如鐃緒申鐃緒申譴�鐃藷じわ申鐃準が鐃緒申鐃緒申鐃緒申鐃緒申鐃塾わ申Class::Std鐃叔わ申鐃緒申Inside-Out Object鐃祝まつわ申鐃緒申鐃緒申悗髻△泙箸鐃緒申鐃緒申鐃楯みてわ申鐃緒申鐃夙わ申鐃緒申鐃緒申里任鐃緒申鐃縮常申鐃緒申鐃�Class::Std鐃夙なってわ申鐃緒申箸鐃緒申鐃緒申鐃緒申鐃緒申Hubris鐃薯感わ申鐃緒申鐃祝はわ申鐃緒申鐃殉わ申鐃緒申

鐃旬わ申鐃緒申鐃熟￥申鐃緒申任鐃�Perl Best Practices鐃緒申鐃緒申鐃緒申鐃曙。

Dan the Inside-Out Blogger