Perl中如何将哈希转换为单个键值对的哈希数组？

嘿，这个需求其实挺容易实现的，而且Perl有几种简洁的写法，我给你详细说说～

首先先纠正个小细节：你写的哈希赋值语句有点小问题，Perl里访问哈希元素要用标量符号$，正确的赋值应该是：

my %h;
$h{1} = 11;
$h{2} = 22;

接下来看两种实现方式：

方法一：用foreach循环遍历构建 #

这是最直观的方式，适合刚接触Perl的朋友理解：

my %h;
$h{1} = 11;
$h{2} = 22;

my @result;
# 遍历哈希的所有键
foreach my $key (keys %h) {
    # 每次循环创建一个只包含当前键值对的匿名哈希引用，推入数组
    push @result, { $key => $h{$key} };
}

执行后@result的结构就和你期望的一致啦，每个元素都是一个独立的单键值对哈希。

方法二：用map函数一行搞定（更Perl风格） #

Perl的map函数特别适合这种“转换集合元素”的场景，一行代码就能完成转换：

my %h;
$h{1} = 11;
$h{2} = 22;

my @result = map { { $_ => $h{$_} } } keys %h;

原理其实和循环类似：keys %h给出哈希的所有键，map对每个键执行代码块，返回一个匿名哈希引用，最终所有引用组成的数组直接赋值给@result，简洁高效。

小补充：关于键的顺序 #

如果你的Perl版本是5.18及以上，哈希默认会保留插入顺序，所以@result里的元素顺序会和你赋值的顺序一致。如果是更旧的Perl版本，哈希是无序的，如果需要维持顺序，可以用Tie::IxHash模块来绑定哈希，保证顺序不变。

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