Perl将哈希压入数组时结构被展开为键值对的问题咨询

异常产生原理 #

• 触发问题的核心是Perl的扁平列表语义：Perl的数组、哈希本质是标量的集合，无法直接将另一个哈希、数组作为独立元素存入数组。当push操作中直接传入裸哈希（如%test_hash）时，解释器会自动将哈希拆解为key1, val1, key2, val2...的平铺序列，逐个填充为数组元素。
• 原代码中两次push操作，实际是把第一个哈希的3组键值对、修改后第二个哈希的3组键值对全部平铺塞进@test_array，最终数组里全是零散的键名、数值，不存在独立的哈希结构，所以Data::Dumper才会输出你看到的扁平列表。
• 原遍历代码中的%$hash解引用逻辑无法正常运行：从数组中取出的$hash只是单个标量（比如字符串'line_1'、数字1），不是哈希引用，解引用操作会触发运行时错误。

正确实现方案 #

要实现「将不同版本的哈希独立存入数组、后续逐个传入对象方法」的需求，必须借助哈希引用完成存储：引用是标量，天然可以作为数组的独立元素存储；同时需要在每次压入数组时，对当前哈希状态做浅拷贝生成独立的新引用，避免两个元素指向同一块哈希内存、后续修改导致版本被覆盖的问题。

修正后的代码示例：

use Data::Dumper;

my @test_array;
my %test_hash = (
    line_1 => 1,
    line_2 => 2,
    line_3 => 3,
);

# 对当前哈希状态做浅拷贝，生成独立匿名哈希引用压入数组
push @test_array, +{ %test_hash };

# 修改原哈希的键值
$test_hash{line_1} = 2;

# 对修改后的哈希状态再次做浅拷贝，生成独立引用压入数组
push @test_array, +{ %test_hash };

# 验证存储结构
print Dumper(\@test_array);

# 遍历调用对象方法
for my $hash_ref (@test_array) {
    $self->do_thing( %$hash_ref );
}

修正后的Data::Dumper输出会符合预期，数组中包含两个独立的哈希结构：

$VAR1 = [
{
'line_1' => 1,
'line_2' => 2,
'line_3' => 3
},
{
'line_1' => 2,
'line_2' => 2,
'line_3' => 3
}
];

关键注意事项 #

• 禁止直接将原哈希的引用\%test_hash压入数组后再修改原哈希：这种写法下两次push存的是同一个内存地址的哈希，后续修改会直接影响第一次存入的引用指向的内容，最终两次遍历取到的都是line_1=2的版本，无法保留初始状态。
• Perl实现所有嵌套复合结构（数组套哈希、数组套数组、哈希套数组等）时，所有嵌套层级都必须以引用形式存在，只有标量类型（引用属于标量）才能作为数组、哈希的独立元素。

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