- 140 名前：デフォルトの名無しさん mailto:sage [2008/05/15(木) 19:33:10 ]
- あまりPERLの構文詳しくないので誰か教えてください
こんなのを作ってみたのですが
sub cont{print "contents\n";}
sub html{print "<html>\n"; $_[0](); print "</html>\n";}
sub body{print "<body>\n"; $_[0](); print "</body>\n";}
body(\&cont);
html(\&cont);
これを、出力が<html><body>cont</body></html>となるように
呼び出したいのですが可能でしょうか
↓動かないですが、こんな感じのことがやりたいです
１． html(\(body(\&cont));
２． sub f{html(\&&_[0]);} f(\&html);
３． sub g{$f=shift; html(\&f);} g(\&html);
