perl - 为什么Perl foreach变量赋值会修改数组中的值？

Question

好的，我有以下代码:

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

print join ", ", @ar;

和输出？

2, 3, 4

有没有搞错？为什么这样做呢？这会一直发生吗？ $ a真的不是局部变量吗？他们在想什么？

Answer 1

Perl有很多这些几乎是奇怪的语法，它们可以大大简化常见任务(例如遍历列表和以某种方式更改内容)，但是如果您不了解它们，可能会使您失望。
$a别名为数组中的值-这使您可以在循环内修改数组。如果您不想这样做，请不要修改$a。