無名サブルーチンとクロージャ - 小池啓仁 ヒロヒト応援ブログ By はてな

昨日言っていた『インナーサブルーチンを使って親のレキシカル変数をリターン値にすると、初回の値を保持するようなのです』の性質を利用するとstatic変数だけでなく、クロージャも出来ますね！ ◆サンプル（closure.pl） use strict; use warnings; sub closure { my $value = shift; sub { $value++ }; } my $c = closure(100); print $c->(), "\n"; print $c->(), "\n"; print $c->(), "\n"; print $c->(), "\n"; ◆実行結果 C:\samp_pl>closure.pl 100 101 102 103closureサブルーチンを初回コールすることにより、$valueに初期値をセットし、$valueをカウントする無名サブルーチン