Perl遍历打印数组嵌套哈希结构内容异常问题咨询

• 结构定义逻辑错误：Perl数组仅支持存储标量类型，无法直接存储键值对结构。你描述的「数组内部包含多组键值对」的场景，本质上应该是一级值为哈希引用，或存储哈希引用的数组引用，多数异常都是因为混用了数组、哈希的存储结构导致的。
• 解引用语法错误：如果使用了引用类型存储嵌套结构，读取时需要使用正确的解引用符号：%解哈希引用、@解数组引用，->操作符用于访问引用的元素，缺少符号或符号用错都会导致读取失败。
• 字段值类型未校验：未判断字段值的类型直接输出，会导致数组引用直接打印为类似ARRAY(0xXXXXXX)的内存地址，无法看到实际数组内容。

修复代码示例 #

场景1：%Homes一级值为属性哈希引用（最常见的匹配需求的结构） #

# 符合要求的结构定义示例
my %Homes = (
    "Home 1" => {
        TYPE_OF_HOUSE => "公寓",
        FIELD_AREA => [60, 80, 100],
        FIELD_FLOOR => [2, 5, 10]
    },
    "Home 2" => {
        TYPE_OF_HOUSE => "别墅",
        FIELD_AREA => [200, 300],
        FIELD_FLOOR => [1, 2, 3]
    }
);

# 遍历实现
foreach my $home_key (keys %Homes) {
    print "=== $home_key ===\n";
    my $attr_hash = $Homes{$home_key};
    foreach my $field (keys %$attr_hash) {
        if ($field eq 'TYPE_OF_HOUSE') {
            print "$field: $attr_hash->{$field}\n";
        } else {
            my @field_vals = @{$attr_hash->{$field}};
            print "$field: " . join(', ', @field_vals) . "\n";
        }
    }
}

场景2：%Homes一级值为属性哈希引用的数组 #

如果确实需要用数组存储多组属性，遍历逻辑增加一层数组解引用即可：

foreach my $home_key (keys %Homes) {
    print "=== $home_key ===\n";
    my @attr_list = @{$Homes{$home_key}};
    foreach my $attr_hash (@attr_list) {
        foreach my $field (keys %$attr_hash) {
            if ($field eq 'TYPE_OF_HOUSE') {
                print "$field: $attr_hash->{$field}\n";
            } else {
                my @field_vals = @{$attr_hash->{$field}};
                print "$field: " . join(', ', @field_vals) . "\n";
            }
        }
    }
}

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