Perl中foreach迭代器经Regex修改后改变原数组：正常还是Bug？

问题场景 #

编写了如下Perl子函数：

sub summs_by_key {
    foreach my $R (@CURR_RECS) {    
        if ($combine) {
            print __LINE__ . ") ... $R" ; 
            $R =~ s/\^/\|/  for 1 .. $KEY_POS ; # 正则表达式操作
            print __LINE__ . ") ___ $R" ; 
        }
        #... 其他逻辑
    }
    #... 其他逻辑 // 无其他对$R的重新赋值
}

其中@CURR_RECS是通过our @CURR_RECS声明的全局数组，在其他子函数中完成填充。

异常现象 #

当$combine为真时，执行上述正则表达式修改迭代器$R后，发现原数组@CURR_RECS的元素被改变。该函数被多次调用时，后续调用会看到数组元素已被前一次的正则操作修改，且此现象仅在$KEY_POS = 2（正则执行2次）时出现。

修复方案 #

通过复制迭代器的方式解决了问题，修改后的代码如下：

foreach my $Rs (@CURR_RECS) {
        my $R = $Rs ;
        if ($combine) {
            print __LINE__ . ") ... $R" ; 
            $R =~ s/\^/\|/  for 1 .. $KEY_POS ;
            print __LINE__ . ") ___ $R" ; 
        }
        # ... 其他逻辑
}

问题解答 #

这是Perl的正常机制，并非Bug。

Perl中foreach循环的迭代变量（比如第一个代码里的$R）是数组对应元素的别名，它直接指向原数组元素所在的内存地址，而非创建元素的副本。因此，对迭代变量执行s///这类原地修改字符串的操作时，本质上就是直接修改原数组中的对应元素。

你观察到“仅在$KEY_POS = 2时出现问题”，大概率是测试场景导致的误解：比如当$KEY_POS = 1时，目标字符串中的^仅被替换一次，后续无更多可替换的字符，可能没明显看出变化，但实际上原数组元素已经被修改了；或者当时的打印逻辑没触发，导致你没注意到原数组的变化。

你采用的创建副本的修复方案是正确的：通过my $R = $Rs将原元素的值拷贝到新变量中，后续对$R的修改只会作用于这个副本，不会影响原数组的元素。

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