Perlでレキシカル変数を外部からいじる方法 - 空繰再繰

Perlでレキシカル変数を外部のスコープから変更するTips 外部スコープからレキシカル変数の値を変更する、 という普通んなことしねーよな変態なことをやりたかったので、 やる方法をだいぶ前に調べたことをまとめてみる。 結論から言えばPadWalkerを使えばできる。 使い方はまあこんな感じ。細かいことはPOD見れば分かるので説明は省略。 use strict; use warnings; use PadWalker qw( peek_my ); use Perl6::Say; { my $x = 'foo'; say $x; # 'foo' &magic(); say $x; # 'bar' } sub magic { my $vars = peek_my(1); ${ $vars->{'$x'} } = 'bar'; } で、まあ何でレキシカル変数を外部から書き換えるとか変態的なことがし

[kamipo]

PadWalker