perl - で(Recall()|arguments.callee()|&?BLOCK()) : 404 Blog Not Found

2008年05月01日20:30 カテゴリLightweight Languages perl - で(Recall()|arguments.callee()|&?BLOCK()) Perl Coreだけで同様のことを実装できないかと考えたらあっさり出来たので。 Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記 それDevel::Caller でできるよ - TokuLog 改め だまってコードを書けよハゲ test run via codepad sub recallable_sub(&) { use B::Deparse; my $coderef = shift; my $src = B::Deparse->new->coderef2text($coderef); $src =~ s{\bRecall\s*\(}{\$coderef

[lamich]

[B::Deparse]

[hassylin]

なにこれ

[sankaseki]

404 Blog Not Found:perl - で(Recall()|arguments.callee()|&?BLOCK())

[mad-capone]

へんたい

[publichtml]

Perlでarguments.caleeライクなもの。

[mattn]

簡単ちゃうｗ

[iouri]

ここまでやるなら素直にsubの外で変数宣言するよｗ

[fbis]

coderef2text使ってevalとかしてる時点で「簡単」というレベルじゃないキガス

[otsune]

おもしろいけど簡単にみえねぇぇぇ

[TAKESAKO]

ぶｗ