为什么@coderefs中的coderef返回的$ copy_of_i的值相同?
use Modern::Perl;
my @coderefs = ();
for (my $i = 0; $i < 5; $i++){
push @coderefs, sub {
my $copy_of_i = $i;
return $copy_of_i;
};
}
say $coderefs[1]->();
say $coderefs[3]->();
我认为$ copy_of_i对于添加到@coderefs的每个coderef都是本地的,因此包含在给定的循环迭代中分配给$ copy_of_i的$ i当前值。但是,如果我们用“ say”显示几个$ copi_of_i的值,我们将看到它们具有相同的值,就好像$ copy_of_i不是每个新创建的coderef的本地值一样。为什么?
您希望具有与闭包关联的不同值,但是$i
对于所有要捕获的闭包只有一个变量。您需要为每个要捕获的闭包创建一个变量,因此$copy_of_i
应在闭包之外创建。调用闭包时创建副本为时已晚。$i
此时不再包含所需的值。
for (my $i = 0; $i < 5; $i++){
my $copy_of_i = $i;
push @coderefs, sub {
return $copy_of_i;
};
}
顺便说一下,与相比,它for my $i (0 .. 5)
是首选的for (my $i = 0; $i < 5; $i++)
,它的优点是为循环的每次迭代创建一个新变量,因此您可以简单地使用
my @coderefs;
for my $i (0 .. 4) {
push @coderefs, sub {
return $i;
};
}
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句