Perlについての質問箱 35箱目

Perlについての質問箱 35箱目 at TECH

141:デフォルトの名無しさん
08/05/15 19:43:23
>>140
こういうことか?

sub cont { print "contents\n"; }
sub html { print "<html>\n"; shift->(); print "</html>\n";}
sub body { print "<body>\n"; shift->(); print "</body>\n";}
html(sub { body(\&cont) } );

次ページ

続きを表示

1を表示