ITPub博客

首页 > Linux操作系统 > Linux操作系统 > Clouse Variables as Inputs

Clouse Variables as Inputs

原创 Linux操作系统 作者:物理狂人 时间:2012-05-02 22:16:38 0 删除 编辑
use File::Find;

sub print_bigger_than {
my $minmum_size = shift;
return sub { print "$File::Find::name\n" if -f and -s >= $minimun_size};
}

my $bigger_than_1024 = print_bigger_than(1024);
find ($bigger_than_1024, 'bin');

给print_bigger_than传递1024参数,因为access $minmum_size是通过print_bigger_than返回值的引用方式,所以它是一个closure 变量,并且在整个子程序引用的生命周期中都不会消失。

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/24104518/viewspace-722587/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2010-06-16

  • 博文量
    80
  • 访问量
    140535