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->\(}g;
    $coderef = eval qq"sub $src";
    die $@ if $@;
    $coderef;
}

local $\ = "\n";
print recallable_sub {
    $_[0] <= 1 ? 1 : $_[0] * Recall( $_[0] - 1 );
}
->($_) for (1..9);

ね、簡単でしょ?

Dan the Perl Monger

See Also

• 404 Blog Not Found:R - 汎用言語としても素敵なんでR - R言語の例
• 404 Blog Not Found:perl - "@{[ Interpolate->any->given('expression') ]}" - Perl 6 の例