鐃殉わ申鐃緒申DCONWAY鐃緒申鐃緒申鐃塾わ申鐃緒申鐃春わ申鐃初。

asin:0596001738
Perl Best Practices
Damian Conway
[邦鐃緒申:Perl鐃駿ワ申鐃夙プラク鐃銃ワ申鐃緒申]

Always use fully encapsulated objects.
鐃緒申鐃瞬ワ申鐃緒申鐃緒申鐃夙は常申縫鐃緒申廛鐃緒申覯緒申鐃緒申鐃緒申僂鐃緒申鐃�

鐃緒申鐃緒申鐃�perl鐃塾常識鐃夙わ申鐃緒申鐃緒申蝓�OO鐃塾常識鐃叔わ申鐃緒申里鐃緒申鐃緒申鼻鐃緒申鐃緒申譴�perl鐃塾種申鐃緒申鐃夙重なるこ鐃夙にわ申蝓�perl鐃祝わ申鐃緒申鐃銃わ申他鐃塾醐申鐃緒申鐃緒申鐃緒申法鐃緒申鐃祝りた鐃緒申鐃淑るイ鐃藷セワ申謄鐃緒申鐃緒申鐃緒申腓�鐃緒申鐃塾わ申鐃楯わ申覆鐃緒申鐃�

鐃緒申鐃竣ワ申鐃暑化鐃塾ワ申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃殉わ申鐃緒申腓�鐃緒申鐃塾わ申鐃緒申

鐃淑駕申鐃熟￥申鐃熟ッワ申鐃遵、鐃熟ッワ申鐃緒申鐃春ワ申鐃緒申鵐后鐃緒申鐃緒申鐃緒申謄魯奪鐃緒申鐃緒申侫鐃緒申鐃藷スにわ申襯�鐃瞬ワ申鐃緒申鐃緒申鐃夙わ申鐃緒申能鐃緒申戰鐃緒申鐃殉￥申鐃緒申鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申能蕕�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃� accessor 鐃緒申 mutator 鐃緒申鐃緒申戮鼎銚討鐃緒申鐃緒申隋�(bench0.pl)鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃熟ッワ申鐃緒申廚慮鐃緒申棔鐃緒申魯奪鐃緒申鐃緒申侫鐃緒申鐃藷スわ申鐃緒申鐃緒申半鐃循わ申鐃駿わ申鐃緒申

          Rate hobf href hash
hobf  346092/s   -- -70% -84%
href 1161878/s 236%   -- -47%
hash 2198826/s 535%  89%   --

          Rate hobf href hash
hobf  347181/s   -- -70% -84%
href 1159485/s 234%   -- -46%
hash 2134227/s 515%  84%   --

鐃緒申鐃緒申鐃駿わ申鐃熟駕申鐃緒申由鐃処す鐃緒申里鐃緒申鐃緒申鐃緒申鐃�?Perl鐃緒申鐃塾わ申里鐃緒申鐃緒申鐃叔�?鐃潤ソ鐃獣ワ申探鐃緒申鐃祝種申崋鐃獣てわ申鐃緒申?

鐃緒申鐃渋は￥申鐃春鰹申鐃緒申鐃緒申納鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申里任鐃緒申襦�accessor 鐃緒申鐃舜随申鐃叔わ申鐃緒申箸鐃緒申鐃緒申鐃緒申造鐃緒申里鐃塾わ申鐃緒申鐃緒申覆里鐃緒申鐃緒申焚鐃緒申魯鐃緒申屮鐃緒申鐃緒申鐃緒申箸鐃緒申鐃夙にどわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃暑か鐃緒申benchmark鐃緒申鐃緒申鐃緒申里鐃緒申鐃緒申鐃縮居申鐃緒申鐃緒申鐃緒申瓮緒申奪鐃獣居申鐃緒申鐃淑わ申鐃緒申鐃銃関随申鐃銃び出わ申鐃祝種申能颪�器申鐃緒申鐃銃も、9%鐃緒申鐃緒申鐃緒申速鐃祝なわ申覆鐃緒申鐃緒申鐃緒申鐃緒申弌鐃緒申悒奪匹里曚箸鐃宿は￥申鐃緒申鐃曙が鐃舜随申鐃銃び出わ申鐃叔わ申鐃緒申箸鐃緒申鐃緒申鐃緒申箸鐃緒申里鐃塾にわ申鐃緒申鐃獣てわ申鐃暑。

              Rate   method      sub method++    sub++   direct direct++
method    430719/s       --      -8%     -74%     -77%     -81%     -91%
sub       469747/s       9%       --     -72%     -75%     -79%     -90%
method++ 1678847/s     290%     257%       --     -12%     -25%     -64%
sub++    1901402/s     341%     305%      13%       --     -16%     -60%
direct   2253342/s     423%     380%      34%      19%       --     -52%
direct++ 4706723/s     993%     902%     180%     148%     109%       --

鐃緒申法 = Best Practice 鐃熟緒申鐃竣わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申単鐃緒申鐃� accessor 鐃叔わ申4鐃旬わ申鐃緒申5鐃旬とわ申鐃緒申OO鐃叔はわ申鐃緒申鐃祝わ申發わ申鐃緒申鐃緒申箸鐃緒申任鐃緒申覆鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃�

鐃緒申鐃緒申鐃叔￥申JavaScript鐃薯見てみる。JavaScript鐃祝わ申鐃緒申鐃銃￥申obj.whatever鐃熟常申鐃�obj['whatever']鐃緒申鐃緒申鐃緒申鐃祝なってわ申鐃暑。鐃潤ソ鐃獣ドとわ申鐃銃逸申鐃緒申鐃祝わ申obj.whatever()鐃緒申必鐃緒申()鐃緒申鐃春わ申鐃淑わ申鐃緒申个覆鐃淑わ申鐃緒申

鐃緒申鐃緒申鐃緒申个鐃緒申董鐃�Perl鐃塾常申鐃祝わ申鐃緒申鐃銃は逆わ申obj->whatever鐃熟常申鐃�obj->whatever()鐃夙駕申瓩居申譟�obj->{'whatever'}鐃夙駕申瓩居申鐃暑こ鐃夙はなわ申鐃緒申()鐃緒申鐃緒申鐃緒申任鐃緒申鐃塾はよい鐃塾わ申鐃緒申鐃緒申鐃春わ申JavaScript鐃塾わ申鐃緒申鐃緒申鐃緒申鐃祝￥申箸鐃緒申鐃叔э申鐃銃わ申鐃殉わ申鐃出￥申鐃緒申鐃竣ワ申鐃暑化鐃緒申鐃緒申鐃緒申鐃薯さほわ申損鐃淑わず鐃緒申OO鐃叔わ申鐃緒申鐃緒申任鐃緒申鐃塾ではなわ申鐃緒申鐃緒申鐃緒申鐃緒申的鐃祝わ申obj->whatever鐃緒申obj->{'whatever'}鐃緒申鐃縮ｏ申鐃緒申襪鰹申箸砲鐃緒申鐃�obj->whatever()鐃夙なってわ申鐃緒申鐃緒申砲呂鐃緒申里泙泙箸鐃緒申鐃緒申錣縁申任鐃緒申襦�

鐃夙わ申鐃緒申鐃緒け鐃叔￥申鐃緒申辰討澆鐃緒申鐃緒申覆鐃緒申覆鐃緒申鐃渋�鐃緒申鐃峻わ申鐃緒申未鐃緒申个鐃緒申鐃�

#!perl
use strict;
use warnings;
use Benchmark qw/timethese cmpthese/;
use Obj;

my $hobj = Obj->new( attr => 1 );

cmpthese(
    timethese(
        0,
        {
            explicit => sub {
                $hobj->{attr} == 1 or die;
            },
            no => sub {
                no accessor;
                $hobj->attr == 1 or die;
            }, # comment here
            use => sub {
                use accessor;
                $hobj->attr == 1 or die;
            },
        }
    )
);

              Rate      use       no explicit
use       954355/s       --     -79%     -80%
no       4617898/s     384%       --      -2%
explicit 4707064/s     393%       2%       --

鐃叔￥申accessor.pm鐃緒申鐃緒申箸呂鐃緒申鐃緒申覆辰討鐃緒申襦�

package accessor;
use strict;
use warnings;
use Filter::Simple;
our $DEBUG = 1;
FILTER_ONLY code => sub {
    my @lines = split /\n/, $_;
    for (@lines) {
        last if /use\s+accessor/;
        s{ ->                       # arrow operator
           ([A-Za-z_][0-9A-Za-z_]*) # method name
           (\(?)                    # explicitly invoked?
        }{
            $2 ?  "->$1$2" # leave it alone
               :  "->{$1}" # make it a simple hash deref
        }egx;
    }
    $_ = join "\n", @lines;
};
no warnings 'redefine';
(*import, *unimport) = (\&unimport, \&import);
1;

鐃緒申鐃銃のとわ申鐃緒申Source Filter鐃緒申鐃緒申鐃緒申覆鐃緒申鐃�no accessor;鐃夙わ申鐃緒申鐃塾わ申鐃淑わ申鐃緒申鐃祝随申鐃緒申鐃緒申鐃�no loan鐃塾よう鐃緒申飽鐃緒申鐃曙気味鐃淑のわ申鐃緒申鐃緒申鐃緒申鐃緒申幣鐃緒申鐃緒申鐃叔醐申鐃縮わ申飽鐃緒申鐃緒申討鐃緒申襦�

use Foo;鐃緒申鐃緒申鐃緒申鐃熟とにわ申鐃緒申鐃緒申Foo.pm鐃緒申鐃�$self->whatever鐃夙わ申鐃緒申鐃緒申鐃緒申accessor鐃緒申箸鐃緒申里郎鐃祝￥申鐃緒申未鐃循わ申鐃緒申overkill(鐃緒申法)鐃夙わ申鐃緒申鐃緒申鐃夙なのわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃渋際「ワ申鐃藷グテ￥申鐃緒申鐃旬」わ申鐃緒申任癲�DCONWAY鐃緒申鐃緒申鐃緒申鐃夙￥申鐃盾ジ鐃遵ー鐃緒申鐃緒申鐃緒申鐃叔わ申accessor鐃緒申鐃術わ申鐃緒申$self->get_whatever鐃夙わ申鐃緒申里任呂覆鐃緒申鐃�$whatever_of{ident $self}鐃夙わ申鐃銃わ申鐃銃￥申Inside-Out Object鐃祝わ申鐃緒申鐃緒申廛鐃緒申僖謄鐃緒申鐃縦常申鐃緒申鐃庶し鐃銃わ申鐃緒申里呂鐃緒申里鐃緒申鐃淑のではなわ申鐃緒申鐃緒申鐃緒申鐃淑みわ申my %whatever_of鐃淑ので￥申鐃盾ジ鐃遵ー鐃暑外鐃緒申鐃緒申榔鐃緒申辰鐃緒申鐃銃わ申鐃暑。鐃旬わ申鐃緒申鐃緒申同鐃緒申鮖仮箸里鐃緒申函鐃�

Dan the POO Monger

Source Codes

Obj.pm

package Obj;
use strict;
use warnings;
sub new { my $pkg = shift; bless {@_}, $pkg }
sub attr {
    my $self = shift;
    return $self->{attr} unless @_;
    $self->{attr} = shift;
    return $self;
}
1;

bench0.pl

#!perl
use strict;
use warnings;
use Benchmark qw/timethese cmpthese/;
use Obj;

my (%hash, $href, $hobj);

cmpthese(
    timethese(
        0,
        {
            hash => sub { %hash = ( attr => 0 ) },
            href => sub { $href = { attr => 0 } },
            hobf => sub { $hobj = Obj->new( attr => 0 ) },
        }
    )
);

cmpthese(
    timethese(
        0,
        {
            hash => sub { $hash{attr}   = $hash{attr} + 1 },
            href => sub { $href->{attr} = $href->{attr} + 1 },
            hobf => sub { $hobj->attr( $hobj->attr + 1 ) },
        }
    )
);

bench1.pl

#!perl
use strict;
use warnings;
use Benchmark qw/timethese cmpthese/;
use Obj;

my $hobj = Obj->new( attr => 0 );
my $hsub = $hobj->can('attr');

sub Obj::inc_attr { shift->{attr}++ }

cmpthese(
    timethese(
        0,
        {
            method     => sub { $hobj->attr( $hobj->attr + 1 ) },
            'method++' => sub { $hobj->inc_attr },
            sub        => sub { $hsub->( $hobj => $hsub->($hobj) + 1 ) },
            'sub++'    => sub { Obj::inc_attr($hobj) },
            'direct++' => sub { $hobj->{attr}++ },
            direct     => sub { $hobj->{attr} = $hobj->{attr} + 1 },
        }
    )
);