camel

鐃淑駕申鐃祝随申発鐃緒申鐃緒申董鐃�

鐃術ッワ申鐃緒申鐃緒申鐃塾鰹申鐃舜はどわ申鐃殉で随申鐃緒申鐃緒申鐃緒申襪�

鐃緒申鐃緒申鐃縦器申戮襪随申鐃祝￥申鐃淑駕申鐃塾ワ申鐃緒申鐃緒申廛箸鐃緒申儖佞鐃緒申鐃緒申鐃�

#!/usr/local/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $maxdepth = shift || 1024;
my $ns = 'P';
sub dummy { 1 }
print Dumper \%P::;

for my $i ( 1 .. $maxdepth ) {
    no strict 'refs';
    local *{ $ns . '::dummy' } = \&dummy;
    printf "depth=%d; P::...::dummy=%d\r", $i, &{ $ns . '::dummy' };
    $ns .= '::P';
}
print "\n";
print Dumper \%P::;
eval { 
    no strict 'refs'; 
    warn &{ 'P' . '::' . 'dummy' };
};
warn $@ if $@;
system qw/ps ux -p/, $$;

鐃緒申鐃緒申鐃夙っわ申調鐃駿てみわ申函鐃緒申鐃緒申鐃緒申蓮屮鐃緒申蝓種申了鐃緒申銚造鐃宿わ申鐃殉でわ申廚鐃�OK鐃塾よう鐃緒申鐃緒申20000鐃緒申鐃初い鐃殉でわ申辰討澆董鐃緒申鐃緒申僖鐃緒申蝓種申鐃�600MB鐃緒申超鐃緒申鐃緒申鐃塾でわ申鐃緒申鐃緒申鐃楯わ申鐃緒申鐃重わ申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申六遒件申討鐃緒申覆鐃緒申鐃�

Perl鐃緒申名鐃緒申鐃緒申鐃緒申(namespace)鐃熟どのよう鐃祝種申鐃緒申鐃緒申鐃緒申討鐃緒申襪�

鐃緒申鐃緒申鐃緒申鐃初が鐃緒申鐃所。

鐃緒申鐃�script鐃緒申發�鐃緒申鐃駿よく鐃緒申鐃銃みわ申函鐃緒申覆鐃緒申鐃緒申鐃循どワ申鐃所ー鐃薯食わ申鐃塾わ申鐃緒申鐃緒申鐃緒申鐃叔わ申鐃緒申里任呂覆鐃緒申鐃緒申鐃緒申鐃獣てわ申鐃緒申鐃緒申鐃縮常申鐃緒申鐃緒申屬鐃緒申辰董鐃緒申鐃緒申鐃緒申飽鐃緒申的鐃祝ワ申鐃瞬ルー鐃緒申鐃緒申鐃緒申鐃熟随申鐃緒申討鐃緒申鐃緒申鐃緒申鐃叔わ申鐃暑。鐃緒申鐃緒申覆里忙鐃緒申僖鐃緒申蝓種申呂匹鐃宿わ申鐃緒申鐃緒申鐃銃行わ申鐃緒申鐃淑わ申鐃緒申鐃緒申鐃緒申鐃緒申

鐃緒申鐃緒申鐃緒申鐃緒申鐃旬わ申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申Dumper鐃塾緒申鐃熟￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申椶鐃緒申鐃夙￥申鐃緒申鐃緒申鐃淑る。

鐃暑ー鐃緒申鐃緒申 
VAR1 = {};
鐃暑ー鐃竣醐申 
depth=1024; P::...::dummy=1
$VAR1 = {
          'P::' => *{'P::P::'},
          'dummy' => *P::dummy
        };

鐃緒申鐃緒申篭鐃緒申辰櫃鐃緒申辰鐃�%P::鐃祝駕申鐃緒申鐃緒申鐃緒申辰討鐃緒申襦ｏ申任鐃�%P::鐃獣てなわ申鐃緒申鐃�?

鐃緒申鐃曙が鐃緒申Symbol Table Hash, 略鐃緒申鐃緒申 stash 鐃緒申鐃緒申鐃緒申鐃旬醐申鐃銃わ申鐃縮り、Stash 鐃緒申名鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申竸鐃緒申鬟�￥申鐃夙わ申鐃緒申 hash 鐃祝なってわ申鐃暑。鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申鐃�P::鐃夙わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃出縁申鐃緒申鐃緒申鐃粛わ申鐃緒申鐃緒申鐃緒申名鐃緒申鐃緒申鐃瞬へ誌申鐃夙となってわ申鐃暑。鐃縮の醐申鐃緒申鐃緒申鐃薯すわ申函鐃�$P::P::P::var鐃祝逸申鐃駿でもア鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申函鐃�%P::P::P::鐃夙わ申鐃緒申stash鐃緒申鐃緒申鐃叔はなわ申鐃緒申%P::P::鐃緒申%P::鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申

asin:487311280X
鐃緒申鐃緒申Perl鐃竣ワ申鐃緒申鐃緒申潺鐃�
Simon Cozens / 鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申
[Advanced Perl Programming] 
% perl -MData::Dumper -e '$P::P::P::var=1; print Dumper \%P::'
$VAR1 = {
          'P::' => *{'P::P::'}
        };

鐃緒申鐃緒申鐃銃￥申鐃緒申鐃緒申鐃緒申鐃緒申鐃竣なのわ申鐃緒申鐃緒申鐃緒申端鐃緒申鐃緒申鐃緒申鐃曙た stash 鐃熟￥申鐃竣ワ申鐃緒申鐃緒申鐃緒申鐃緒申未泙撚鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申stash 鐃夙わ申鐃緒申鐃塾は関随申鐃緒申鐃緒申泙粘泙瓩随申鐃緒申鐃緒申鐃緒申丱鐃緒申竸鐃緒申鐃緒申屬鐃緒申鐃緒申覆里鐃緒申鐃緒申蕕�鐃緒申鐃縮ｏ申鐃緒申鐃緒申任呂鐃緒申襦�

鐃緒申鐃緒申鐃殉わ申鐃緒申鐃術ッワ申鐃緒申鐃緒申鐃術随申鐃緒申鐃殉めた鐃緒申鐃緒申鐃緒申鐃出ワ申鐃術随申鐃緒申鐃緒申澆忙箸鐃緒申戮鐃緒申任呂覆鐃緒申鐃粛鰹申覆里任鐃緒申襦�

鐃緒申鐃緒申名鐃緒申鐃緒申鐃瞬わ申 stash 鐃祝関わ申鐃銃は￥申鐃瞬ヒョウ鐃旬」わ申鐃夙「種申鐃緒申Perl鐃竣ワ申鐃緒申鐃緒申潺鵐亜廚望椶鐃緒申鐃緒申鐃緒申鐃�鐃緒申鐃緒申鐃�Perl鐃緒申鐃緒申鐃竣わ申鐃緒申鐃緒申鐃準し鐃緒申鐃瞬種申鐃術」にふわ申鐃緒し鐃緒申鐃旬でわ申鐃暑が鐃緒申鐃緒申鐃緒申鐃�"Advanced Perl Programming"鐃緒申Advanced鐃淑とわ申鐃緒申鐃祝関わ申鐃銃は削申鐃叔もこ鐃曙が鐃緒申鐃述とわ申鐃銃は最わ申Advanced鐃緒申鐃緒申鐃緒申魄靴辰討鐃緒申鐃夙思わ申鐃緒申

Dan the Perl Monger