Perl for循环更新哈希索引键时值被同步修改如何解决

所有params_name_$i下的第三个元素都指向同一个哈希引用，没有生成独立的哈希实例。
你在循环中写的$hash{value} = $hash_mpi{value}只是复制了引用的内存地址，没有复制引用指向的实际哈希内容，所有循环轮次拿到的都是同一个哈希的指针，后续修改reporter_message时本质是反复修改同一块内存的数据，最后一次循环写入的process_2会覆盖之前所有的赋值，才会出现所有条目同步更新的现象。

每次循环时为当前索引生成独立的哈希副本，不要复用同一个引用。

简单扁平哈希场景 #

如果你的$hash_mpi{value}只有一层键值对，直接展开原哈希生成新的匿名哈希即可，修改后的完整代码：

package delete;
use strict;
use warnings FATAL => 'all';

my %parallel_hash;
my %hash_mpi;

$hash_mpi{value}->{bind_to} = "none";
for (my $i=0;$i<=2;$i++)
{
    my %hash;
    # 展开原哈希内容，生成独立的新匿名哈希实例
    $hash{value} = { %{$hash_mpi{value}} };
    $parallel_hash{"function_name_$i"}  = "sharp_mpi_steps::run_mpirun";
    @{$parallel_hash{"params_name_$i"}} = ("reporter","xml_obj",$hash{value});
    $parallel_hash{"params_name_$i"}->[2]->{reporter_message} = "process_$i";
}

print ("Done");
1;

多层嵌套哈希场景 #

如果$hash_mpi{value}存在多层嵌套的引用结构，手动展开拷贝容易遗漏，可以使用Perl核心模块Storable的dclone方法做递归深拷贝：

# 先引入模块
use Storable qw(dclone);

# 循环内的赋值语句替换为
$hash{value} = dclone($hash_mpi{value});

该方法会递归复制所有层级的引用结构，彻底杜绝多指针指向同一块内存的问题。

修改后每个params_name_$i对应的哈希都是独立实例，reporter_message会分别赋值为process_0、process_1、process_2，和你预期的结构完全一致。

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