Perl中如何复用哈希变量？哈希引用存入数组结果不符的问题

你的核心问题是对Perl中哈希变量和其引用的关系理解有误，具体误区如下：

• 混淆哈希内容重置与内存地址的关系：%x = ()只是清空了哈希变量%x中的键值对，但哈希本身占用的内存地址并没有改变。你每次push到数组中的都是\%x这个引用（本质是指向该内存地址的指针），所以数组里的所有元素最终都指向同一块内存空间，最后一次对%x的赋值会覆盖之前的内容，导致数组中所有引用都指向最后一次修改后的哈希。

• 误将引用当作内容副本：你以为push(@items, \%x)是把当前哈希的内容复制到数组里，但实际上Perl的引用是指向原变量内存地址的指针，而非内容拷贝。数组存储的只是指针，不是哈希的实际内容。

解决方案 #

根据你的需求（循环内复用逻辑），有几种可行的修正方式：

1. 循环内重新声明哈希 #

每次循环都创建一个新的哈希变量，这样每个哈希都有独立的内存地址，对应的引用也各不相同：

my @items;
foreach ... {
  my %x; # 每次循环生成新的哈希，内存地址不同
  $x{'aa'} = some_random_number();
  push(@items, \%x);
}

2. 使用匿名哈希（最简洁） #

直接在push时创建匿名哈希，避免显式声明哈希变量，每个匿名哈希都是独立的内存对象：

my @items;
foreach ... {
  push(@items, { 'aa' => some_random_number() });
}

3. 拷贝哈希内容到新引用（适合必须复用外部哈希的场景） #

如果一定要保留外部的%x变量，可以在push时创建一个新的匿名哈希，拷贝当前%x的内容，再将新哈希的引用存入数组：

my @items;
my %x;
foreach ... {
  %x = ();
  $x{'aa'} = some_random_number();
  push(@items, { %x }); # 拷贝%x的内容到新匿名哈希，push其引用
}

修改后，Data::Dumper输出的数组会包含多个独立的哈希，而非指向同一个哈希的重复引用。

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