perl 匿名函数传参 

$subref=sub {
 my $a=shift;
 return $a;
    };

print $subref->("xxyyzz");

posted @ 2016-05-26 14:16  czcb  阅读(167)  评论(0)  编辑  收藏  举报