如何在 perl 中的散列数组中向散列中添加新的键值对？

Question

嗨，我需要向散列数组中的散列条目添加一个新的键值对。下面是一些不起作用的示例代码（仅使用 1 个数组条目进行了简化） 打印语句的输出仅包含 1 个条目。

my @AoH;
push @AoH, { TEST1 => 'testvalue'  };
for my $hash (@AoH)
{
$hash{'TEST2'} = 'testvalue2';
print Dumper($hash);
}

我究竟做错了什么？

谢谢你。

Answer 1

这段代码看起来有点奇怪，所以为了在这里简要展示它，我假设它是这样完成的，但是修复代码需要做的主要事情是更改：

$hash{'TEST2'} = 'testvalue2';

到：

$$hash{'TEST2'} = 'testvalue2';

或者：

$hash->{'TEST2'} = 'testvalue2';

额外的 '$' 或 '->' 取消引用散列引用 '$hash'。由于两者都不存在，它将 $hash{'TEST2'} 视为不同的变量：'%hash'（不是 '$hash'）并将 'testvalue2' 分配给它。你会得到一个很好的错误信息：

Global symbol "%hash" requires explicit package name at - line XX

如果您尝试使用以下代码运行此代码：

use strict;
use warnings;

一开始......你应该总是这样做，所以从现在开始每次都这样做。