Perl嵌套哈希中哈希数组的遍历问题求助

首先咱们先拆解你遇到的问题：报错Global symbol "%item" requires explicit package name其实是个典型的Perl引用语法错误，另外你的子函数参数接收也有个小坑，咱们一步步来解决。

错误根源解析 #

1. 哈希引用访问语法错误
   在你的循环foreach my $item (@{ $value->{'items'} })里，$item是一个哈希引用，不是直接的哈希变量。Perl里访问哈希引用的元素必须用箭头符号->，你写成$item{'k1'}{'x2'}时，Perl会误以为你在调用一个名为%item的全局哈希，但这个哈希从未声明，所以直接抛出错误。

2. 子函数参数接收的隐藏问题
   你调用子函数时传的是哈希引用iterateHash(\%myHash)，但子函数里写的是my %myHash = @_;——这会把传入的引用当成列表的第一个元素，赋值给%myHash的键，对应的值则是undef，直接导致后续遍历完全不符合预期。

修正后的完整代码 #

下面是修复了这两个问题的代码，我加了注释帮你理解逻辑：

sub iterateHash {
    # 正确接收传入的哈希引用，避免不必要的数据复制
    my ($hash_ref) = @_;
    
    # 存储最终处理结果的哈希
    my %newHash;

    while (my ($key, $value) = each %$hash_ref) {
        # 遍历items数组内的每个哈希引用
        foreach my $item (@{ $value->{'items'} }) {
            # 用->符号正确访问哈希引用的嵌套元素
            if( !defined $newHash{'nk1'} ) {
                $newHash{'nk1'} = $item->{'k1'}{'x2'};
            }
        }
    }

    # 返回结果哈希的引用（大结构用引用传递更高效）
    return \%newHash;
}

# 调用方式保持不变，子函数现在能正确处理哈希引用
my $results = iterateHash(\%myHash);

额外优化建议 #

如果你希望newHash{'nk1'}收集所有item里的x2值（而不是只保留第一个），可以改成数组存储的形式：

# 把单个值改成数组收集所有符合条件的内容
push @{ $newHash{'nk1'} }, $item->{'k1'}{'x2'};

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