为什么Perl修改变量赋值修改数组中的值？

Question

OK，我有以下代码：

use strict; 
my @ar = (1, 2, 3); 
foreach my $a (@ar) 
{ 
    $a = $a + 1; 
} 

print join ", ", @ar; 

和输出？

2，3，4

什么鬼？它为什么这样做？这会一直发生吗？ $是不是一个真正的局部变量？他们在想什么？

Answer 1

Perl有很多这些几乎奇怪的语法，它们极大地简化了常见的任务（比如遍历列表并以某种方式更改内容），但是如果您不知道它们，可能会让您感觉不舒服。

$a被别名到数组中的值 - 这允许您修改循环内的数组。如果你不想这样做，请不要修改$a。

Answer 2

$a在这种情况下是数组元素的别名。在你的代码中没有$a =，你不会修改数组。 :-)

如果我没记错的话，map，grep等都有相同的别名行为。

Answer 3

见perldoc perlsyn：

如果列表的任何元素是左值，你可以通过修改环路内VAR修改。相反，如果LIST的任何元素不是左值，则任何修改该元素的尝试都将失败。换句话说，foreach循环索引变量是您正在循环的列表中每个项目的隐式别名。

没有什么奇怪的或奇约一个记录语言功能虽然我觉得很奇怪有多少人拒绝办理入住手续时遇到的行为，他们不明白的文档。

Answer 4

这里最重要的区别是，在声明中for循环的初始化部分中的my变量，它似乎分享当地人和词法的一些特性（与内部照顾更多的知识，以澄清别人？）

my @src = 1 .. 10; 

for my $x (@src) { 
    # $x is an alias to elements of @src 
} 

for (@src) { 
    my $x = $_; 
    # $_ is an alias but $x is not an alias 
} 

的这个有趣的副作用是，在第一种情况下，一个定义sub{}内的for循环是围绕任何列表$x的元件混淆为闭合。知道这一点，有可能（虽然有点奇怪）关闭一个甚至可能是全局的别名值，我认为这对其他任何构造都是不可能的。

our @global = 1 .. 10; 
my @subs; 
for my $x (@global) { 
    push @subs, sub {++$x} 
} 

$subs[5](); # modifies the @global array 

Answer 5

正如其他人所说，这是记录。

我的理解是，@_，for，map和grep混叠行为提供了速度和内存优化以及提供创意有趣的可能性。发生的事情本质上是构造块的传递引用调用。通过避免不必要的数据复制，节省了时间和内存。

use strict; 
use warnings; 

use List::MoreUtils qw(apply); 

my @array = qw(cat dog horse kanagaroo); 

foo(@array); 


print join "\n", '', 'foo()', @array; 

my @mapped = map { s/oo/ee/g } @array; 

print join "\n", '', 'map-array', @array; 
print join "\n", '', 'map-mapped', @mapped; 

my @applied = apply { s/fee//g } @array; 

print join "\n", '', 'apply-array', @array; 
print join "\n", '', 'apply-applied', @applied; 


sub foo { 
    $_ .= 'foo' for @_; 
} 

注意使用List::MoreUtilsapply功能。它的工作原理与map类似，但是会创建主题变量的副本，而不是使用引用。如果你讨厌写作类似的代码：

my @foo = map { my $f = $_; $f =~ s/foo/bar/ } @bar; 

你一定会喜欢apply，这使得它分为：

my @foo = apply { s/foo/bar/ } @bar; 

事情需要注意的：如果你通过只读值到这些结构的一个修改它的输入值，你会得到一个“尝试修改一个只读值”的错误。

perl -e '$_++ for "o"' 

Answer 6

您的$ a只是在循环时用作列表中每个元素的别名。它被用来代替$ _。你可以知道$ a不是局部变量，因为它是在块之外声明的。

更明显的是，为什么分配给$ a会改变列表的内容，如果你认为它是$ _（它就是这样）的替代品。事实上，如果你定义了你自己的迭代器，$ _就不存在了。

foreach my $a (1..10) 
    print $_; # error 
} 

如果你想知道的一点是什么，考虑的情况：

my @row = (1..10); 
my @col = (1..10); 

foreach (@row){ 
    print $_; 
    foreach(@col){ 
     print $_; 
    } 
} 

在这种情况下，它更具有可读性为$提供更友好的名称_

foreach my $x (@row){ 
    print $x; 
    foreach my $y (@col){ 
     print $y; 
    } 
} 

Answer 7

尝试

foreach my $a (@_ = @ar) 

now mod如果$ a不会修改@ar。在v5.20.2