Perl でも JavaScript っぽくクロージャが作れるんですね - Born Too Late

JavaScript ではよくある、こういう書き方。 一応説明すると、これは実行時に外側の無名関数を実行します。外側の無名関数は返り値として、内側の無名関数を返し、変数 counter には内側の無名関数が代入されます。 これの何が嬉しいのか。 counter 関数が内部に持っている変数 i は隠蔽されており、外から変更できない。 グローバル空間の汚染は counter 1 つだけ。 といったところでしょうか。とにかく、 JavaScript 脳の人はこういう感じのコードをよく書いている気がします。 JavaScript にはオブジェクト指向によくある protected や private といったアクセスレベルを制御する機能が無いため、これの応用で内部の変数やメソッドを隠蔽することが多いです。 Prototype や jQuery でもそういった使い方がされています。 このように、 J

[kiyo_hiko]

書き捨てならdoで「$kuro=do{my $n=0;sub{++$n}}」、複数インスタンスならsubで「$kuro=sub{my($n,$name)=(0,$_[0]);sub{(defined $name?$name:'Anon Kuro').' says '.++$n}};＠kuro=map{$kuro->($_)}(qw/foo bar/, undef)」とかかな　モヤッとする

[riaf]

$counter = function(){ static $count = 0; return ++$count; }; とかだとちょっと違うか。。。

[yappo]

javascriptよりもスコープの自由度が高い