perl中的引用相当于指针,其中闭包closure实现迭代,类似数据库游标取出一行行记录。
打印的结果为
#!/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<10;$i++) {
&$iterator();
}
print "\n";
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<10;$i++) {
&$iterator();
}
print "\n";
30 32 34 36 ..48
而不是2468101214161820
其中my ($input) = @_可以替换为my $input = shift;
加括号打印的是元素,不加括号打印的是元素个数
转载于:https://blog.51cto.com/mcshell/477565