perl – 有没有办法修改foreach循环变量？

发布时间：2020-12-15 23:29:51 所属栏目：大数据来源：网络整理

导读：以下代码给出了一条错误消息： #!/usr/bin/perl -wforeach my $var (0,1,2){ $var += 2; print "$varn";} 在test.pl第4行尝试修改只读值. 有没有办法修改$var？ (我只是好奇地问;看到这个错误信息我真的很惊讶.) 解决方法在foreach $var(@list)构造中,$var

以下代码给出了一条错误消息：

#!/usr/bin/perl -w

foreach my $var (0,1,2){
    $var += 2;
    print "$varn";
}

在test.pl第4行尝试修改只读值.

有没有办法修改$var？ (我只是好奇地问;看到这个错误信息我真的很惊讶.)

解决方法

在foreach $var(@list)构造中,$var变为别名的循环元素,因为$var的内存地址与@list的元素的地址相同.因此,您的示例代码尝试修改只读值,并获得错误消息.

这个小脚本将演示foreach构造中发生的事情：

my @a = (0,2);
print "Before: @an";
foreach my $var (@a) {
  $var += 2;
}
print "After:  @an";

Before: 0 1 2
After:  2 3 4

附加信息：从perlsyn开始的This item很容易掩盖,但给出了整个独家新闻：

Foreach loops

…

If any element of LIST is an lvalue,you can modify it by modifying VAR inside the loop. Conversely,if any element of LIST is NOT an lvalue,any attempt to modify that element will fail. In other words,the “foreach” loop index variable is an implicit alias for each item in the list that you’re looping over.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!