[root@dou shili]# cat closure.pl
#!/usr/bin/perl -w
use strict;
sub outer { my $color = shift; my $ref = sub { my $object = shift; print "paint the $object $color.\n"; }; return $ref; # returns a closure. } my $p1 = outer("red"); my $p2 = outer("blue"); $p1->("flower"); $p2->("sky"); [root@dou shili]# perl closure.pl paint the flower red. paint the sky blue.
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
