サブルーチンの中にサブルーチンが書ける？

質問

どこかのサンプルでサブルーチンの中にサブルーチンが書いてあったのですが、
元々Perlではそういう書き方が出来たのでしょうか？

Perl4、Perl5、Perl5.6、Perl5.8
どれでも使えるものかどうか知りたいです。

回答No.1

kabaokaba · ベストアンサー

>どこかのサンプルでサブルーチンの中にサブルーチンが書いてあったのですが、

そもそもその「サンプル」がないとお話になりませんが，

sub hoge{
my $a=shift;
sub huga{
print "naka\n";}
huga;
return $a;
}
print hoge(10);

この程度のことは当然可能です．たぶん，Perl4でも動くでしょう．
Perl5からはいわゆるコードリファレンスがあるので，
サブルーチンを返すサブルーチンや
サブルーチンを引数にするサブルーチンもかけます．

お礼

ありがとうございます。
サブルーチンの入れ子が出来るのか、
そうです、その程度のことが可能なのかどうか知りたかったのです。
見たこと無かったので。

これが出来るんだったら、もっとコードが見やすく出来たのに。
今日はじめて知りました。