- 143 名前：デフォルトの名無しさん mailto:sage [2008/05/15(木) 20:19:38 ]
- use strict;
use warnings;
sub binding{ my($F,@P)=@_;sub{$F->(@P)} }
sub cont {print "contents\n";}
sub html {print "<html>\n"; shift->(); print "</html>\n";}
sub body {print "<body>\n"; shift->(); print "</body>\n";}
sub cont2 {return "contents\n";}
sub html2 {return "<html>\n",shift->(),"</html>\n";}
sub body2 {return "<body>\n",shift->(),"</body>\n";}
html( binding( \&body => \&cont ) );
print html2( binding( \&body2 => \&cont2 ) );
