06 11 2006 Tweet
perlのデータ構造をDFSするモジュール探してたら、Data::Traverseというモジュールを見つけた。
で、ソースを眺めてたら、こんな記述が。
no strict 'refs'; local(*{$caller."::a"}) = \my $a; local(*{$caller."::b"}) = \my $b; use strict 'refs';
おーなんか気持ち悪い。
my $a; \$a;
を縮めると
\my $a;
になるのか。
06 11 2006 Tweet
perlのデータ構造をDFSするモジュール探してたら、Data::Traverseというモジュールを見つけた。
で、ソースを眺めてたら、こんな記述が。
no strict 'refs'; local(*{$caller."::a"}) = \my $a; local(*{$caller."::b"}) = \my $b; use strict 'refs';
おーなんか気持ち悪い。
my $a; \$a;
を縮めると
\my $a;
になるのか。