Perl打印Tags键值对时出现「Not a HASH reference」错误求助

报错的核心原因是你把数组引用当成了哈希引用处理：

• $name是一个数组引用（从数据结构$VAR1 = [...]可以看出），里面每个元素才是哈希引用。
• 你原代码里的keys %$name试图将数组引用强制解引用为哈希，Perl无法识别，所以抛出Not a HASH reference错误。

正确实现方式 #

方式一：直接提取每个标签的Key和Value（适合固定结构的标签） #

因为你的每个哈希元素都只有Key和Value两个键，可以直接取值：

foreach my $tag (@$name) {
    my $key = $tag->{Key};
    my $value = $tag->{Value};
    print "$key => $value\n";
}

方式二：遍历每个哈希的所有键值对（通用场景） #

如果哈希里可能有其他键，或者需要通用遍历逻辑，可以嵌套循环：

foreach my $tag (@$name) {
    # 遍历单个哈希引用的所有键值对
    foreach my $key (sort keys %$tag) {
        my $value = $tag->{$key};
        print "$key => $value\n";
    }
    print "\n"; # 可选：分隔不同标签的输出
}

运行结果示例 #

两种方式都会输出类似内容：

Name => fl-demo
state => FL

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