Perl遍历数组时修改$fruit为何会同步更新原@fruits数组

Perl的foreach循环迭代时，循环变量（你代码中的$fruit）是原数组对应元素的别名，而非独立的临时副本。你对$fruit做的任何修改都会直接同步到原数组的对应位置，这是Perl的固有语法设计，本身不属于程序错误。

你代码中的s|apple|peach|替换操作直接修改了$fruit指向的原数组元素值，所以最终@fruits里的apple会被替换为peach。

如果不需要改动原数组，可采用以下两种常见实现：

• 循环内先拷贝迭代变量的值到临时变量，仅修改临时变量：

foreach my $fruit (@fruits) {
  my $temp = $fruit;
  $temp =~ s|apple|peach|;
  # 后续所有操作都针对$temp处理即可
}

• 直接遍历原数组的拷贝，而非原数组本身：

# 括号会生成@fruits的临时拷贝，修改迭代变量不会影响原数组
foreach my $fruit ((), @fruits) {
  $fruit =~ s|apple|peach|;
}

内容的提问来源于stack exchange，提问作者JeremyCanfield