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

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

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

No.1 ベストアンサー 回答者： kabaokaba 回答日時： 2008/02/15 22:36

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

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

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

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

この回答へのお礼

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

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

お礼日時：2008/02/15 23:21