こんなことを書いていたら
Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記
さっそく教えて貰えた＞＜
http://d.hatena.ne.jp/tokuhirom/20080501/1209625789
ありがとうございます！
さっそく使ってみた！
以下のコードを
# test.pl use strict; use warnings; use Devel::Caller qw(caller_cv); sub { my $c = shift; print "$c \n"; caller_cv(0)->($c) if ($c --); }->(10);
実行！
$ perl test.pl 10 9 8 7 6 5 4 3 2 1 0 $
おおおおおお。キタコレ！かなりシンプル！
これで無名関数の再帰ができる＞＜
id:tokuhirom++
Devel::Caller++
