Perl中如何将重复键的值存入键值数组

完全明白你的需求——就是要让哈希的每个键关联一个数组，把相同键的所有值都存到对应的数组里，这样就不会有键冲突的问题了。在Perl里实现这个非常直观，核心思路是让哈希的值是数组引用，然后用push操作把新值追加到数组里。

举个具体的例子，假设你有一组待处理的键值对，比如('apple', 'red')、('banana', 'yellow')、('apple', 'green')，可以这么写：

# 初始化一个空哈希，用来存键和对应的数组
my %fruit_data;

# 假设@key_value_pairs是你的键值对列表，每个元素是[键, 值]的数组引用
my @key_value_pairs = (
    ['apple', 'red'],
    ['banana', 'yellow'],
    ['apple', 'green'],
    ['apple', 'pink'],
);

# 遍历处理每个键值对
foreach my $pair (@key_value_pairs) {
    my ($key, $value) = @$pair;
    # 把值追加到对应键的数组里
    push @{ $fruit_data{$key} }, $value;
}

# 测试输出apple对应的所有值
print "Apple的对应值：" . join(', ', @{ $fruit_data{'apple'} }) . "\n";

运行这段代码后，输出会是：

Apple的对应值：red, green, pink

关键知识点解释： #

• @{ $fruit_data{$key} }是数组引用解引用：Perl会自动帮你处理初始化——当第一次访问某个键时，如果哈希里还没有这个键对应的数组引用，Perl会自动创建一个空的数组引用，然后push操作直接往里面加值；后续再遇到同一个键，就直接往已有的数组里追加。
• 这种结构完美满足你的需求：所有相同键的值都被收集到对应的数组中，完全不会出现键覆盖的冲突问题。

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