论坛 › Perl › perl引用中的闭包closure-mcshell学习博客

新风花雪月 发表于 2018-9-1 07:21:21

perl引用中的闭包closure-mcshell学习博客

#!/usr/bin/perl　　sub number_printer {
　　my ($input)   = @_;
　　if($input % 2){$input++};
　　$rs=sub {
　　print "$input";
　　$input += 2;
　　};
　　return $rs;
　　}
　　$iterator = number_printer(30);
　　for ($i=0;$i

查看完整版本: perl引用中的闭包closure-mcshell学习博客