Perl遍历Ping导出JSON数据遇解引用问题求助

看起来你已经离解决问题很近了！核心问题在于$data->{'items'}是一个数组引用，而不是直接的数组，所以遍历的时候需要先把它解引用成普通数组，才能逐个访问里面的哈希元素。

正确的遍历写法 #

你可以用两种方式解引用这个数组引用：

方式1：传统解引用语法

用@{$array_ref}把数组引用转换成数组，然后在foreach里遍历：

#!/usr/bin/perl
use JSON;
use Data::Dumper;
use strict;
use warnings;

my $json;
{
    local $/; # Enable 'slurp' mode
    open my $fh, "<", "idp.json";
    $json = <$fh>;
    close $fh;
}

my $data = decode_json($json);

# 遍历items数组里的每个元素
foreach my $item (@{$data->{'items'}}) {
    # 访问当前item的type字段
    print "Type: " . $item->{'type'} . "\n";
    # 访问嵌套的contactInfo哈希里的字段
    print "Company: " . $item->{'contactInfo'}->{'company'} . "\n";
    print "Email: " . $item->{'contactInfo'}->{'email'} . "\n";
    print "---\n"; # 分隔每个item
}

方式2：Perl 5.14+的后置解引用语法（更简洁）

如果你用的是Perl 5.14或更高版本，可以用更直观的后置解引用写法：

foreach my $item ($data->{'items'}->@*) {
    # 内部访问逻辑和上面完全一样
    print "Type: " . $item->{'type'} . "\n";
    print "Company: " . $item->{'contactInfo'}->{'company'} . "\n";
    print "Email: " . $item->{'contactInfo'}->{'email'} . "\n";
    print "---\n";
}

为什么之前的尝试没成功？ #

你之前可能直接尝试遍历数组引用本身（比如foreach $data->{'items'}），这时候循环只会拿到整个数组引用，而不是里面的每个哈希元素。必须先把数组引用解引用成数组，才能逐个处理每个item。

另外，你可以用Data::Dumper打印整个$data结构，帮你更清晰地理解数据层级：

print Dumper($data);

这会输出类似这样的结构，能直观看到items是一个数组引用，里面包含多个哈希引用：

$VAR1 = {
          'items' => [
                       {
                         'type' => 'SP',
                         'contactInfo' => {
                                            'company' => 'Acme',
                                            'email' => 'john.doe@acme.com'
                                          }
                       }
                     ]
        };

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