Perl中foreach(@array, $var)语法的工作原理及差异解析请求

第一种写法：foreach (@array, $var){ ... } #

Perl里的foreach循环本质是遍历一个列表表达式，这里的@array, $var是列表拼接操作：

• Perl会先把数组@array展开为它的所有元素，再把变量$var的值追加到这个元素序列后面，形成一个临时的合并列表；
• 循环会依次遍历这个合并列表的每一个元素；
• 如果没有显式指定循环变量，Perl会默认使用当前作用域的$_作为迭代变量，每次循环时$_是当前元素的别名——修改$_会直接改变原数组对应元素或者原$var的值（因为是别名引用）。

举个实际例子：

my @nums = (10, 20);
my $single_num = 30;

foreach (@nums, $single_num) {
    $_ *= 2;
}

# 执行后：@nums 变成 (20, 40)，$single_num 变成 60

第二种常见写法：foreach $var (@array){ ... } #

这种写法是显式指定循环变量的标准用法：

• 遍历的对象仅为@array的元素列表，不会把$var加入遍历序列；
• 指定的$var作为迭代变量，每次循环时它是当前@array元素的别名，修改$var会直接修改@array中对应的元素；
• 注意：这里的$var会覆盖当前作用域中同名的变量，循环结束后$var保留的是最后一次迭代的元素值（或别名引用）。

对应例子：

my @nums = (10, 20);
my $single_num = 30;

foreach $single_num (@nums) {
    $single_num *= 2;
}

# 执行后：@nums 变成 (20, 40)，$single_num 变成 40（最后一次迭代的元素值）

核心差异总结 #

• 第一种写法是遍历数组元素+单个变量值的合并列表，默认用$_迭代；
• 第二种写法是仅遍历数组元素，用指定变量作为迭代器（会覆盖同名变量）。

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