如何遍历Perl函数返回的哈希引用数组？

首先纠正你函数调用的错误：你当前用my @results = $whatever($dt_id);是错误写法，Perl中用$调用子例程会触发标量上下文，此时子例程返回的数组会被转换成元素个数而非数组本身。正确的调用应该是：

my @results = whatever($dt_id);

接下来是遍历哈希引用数组的几种常用方式：

方式一：嵌套循环遍历所有键值对 #

遍历数组中的每个哈希引用，再逐个取出哈希里的键和值：

foreach my $hash_ref (@results) {
    # 遍历哈希的所有键
    foreach my $key (keys %$hash_ref) {
        my $value = $hash_ref->{$key};
        # 替换成你需要的处理逻辑，比如打印日志
        $c->app->log->debug("Key: $key, Value: $value");
    }
}

方式二：使用each函数遍历哈希 #

each函数可以直接返回哈希的键值对，写法更简洁：

foreach my $hash_ref (@results) {
    while (my ($key, $value) = each %$hash_ref) {
        $c->app->log->debug("Key: $key, Value: $value");
    }
}

方式三：单独访问指定哈希的元素 #

如果你知道数组中哈希的位置，可以直接通过索引访问：

# 获取第一个哈希里的IOP值
my $iop_value = $results[0]->{IOP};
# 获取第二个哈希里的4km值
my $four_km_value = $results[1]->{'4km'};

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