Perl遍历AoH结构时如何过滤仅输出scalar标量类型的键值对？

你原来的判断逻辑错误是没有调用Perl内置的ref()函数获取值的实际引用类型，直接将引用值和字符串比对不会命中判断条件，因此过滤完全不生效。

Perl的ref()函数会返回传入变量的引用类型：

• 普通标量传入返回空字符串
• 数组引用传入返回ARRAY
• 哈希引用传入返回HASH

你只要判断ref($value)为ARRAY/HASH时跳过输出即可，修改后的判断代码如下：

# 先获取值的引用类型
my $ref_type = ref $value;
# 仅当不是数组/哈希引用时输出
if ($ref_type ne 'ARRAY' && $ref_type ne 'HASH') {
    print "$key => $value\n";
}

如果你的遍历逻辑里会递归进入嵌套的数组/哈希结构，该判断刚好可以跳过父级的引用行，只输出最内层的标量键值对，完全匹配需求。

配套的完整遍历实现参考：

@AoH = ( 
    { 'husband' => "homer", 'wife' => "marge" },
    { 'people' => [{'Bob'=> 24, 'Lukas'=> 37}] },
    { 'vegetables' => { 'tomato' => "red", 'carrot' => "orange"} }
); 

sub traverse {
    my ($struct) = @_;
    if (ref $struct eq 'HASH') {
        while (my ($key, $value) = each %$struct) {
            my $ref_type = ref $value;
            # 非数组/哈希引用直接输出
            if ($ref_type ne 'ARRAY' && $ref_type ne 'HASH') {
                print "$key => $value\n";
            } else {
                # 递归遍历嵌套结构
                traverse($value);
            }
        }
    } elsif (ref $struct eq 'ARRAY') {
        foreach my $item (@$struct) {
            traverse($item);
        }
    }
}

traverse(\@AoH);

运行后输出结果如下：

husband => homer
wife => marge
Bob => 24
Lukas => 37
tomato => red
carrot => orange

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