尝试访问JSON数组的内容时出错。
以下是我的JSON数组assets.json的内容:
[{"id":1002,"interfaces":[{"ip_addresses":[{"value":"172.16.77.239"}]}]},{"id":1003,"interfaces":[{"ip_addresses":[{"value":"192.168.0.2"}]}]}]
这是我的代码
#!/usr/bin/perl
use strict;
use warnings;
use JSON::XS;
use File::Slurp;
my $json_source = "assets.json";
my $json = read_file( $json_source ) ;
my $json_array = decode_json $json;
foreach my $item( @$json_array ) {
print $item->{id};
print "\n";
print $item->{interfaces}->{ip_addresses}->{value};
print "\n\n";
}
我获得$ item-> {id}的预期输出但是在访问嵌套元素时 我收到错误"不是HASH参考"
答案 0 :(得分:6)
Data::Dumper
是你的朋友:
试试这个:
#!/usr/bin/env perl
use strict;
use warnings;
use JSON::XS;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
my $json_array = decode_json ( do { local $/; <DATA> } );
print Dumper $json_array;
__DATA__
[{"id":1002,"interfaces":[{"ip_addresses":[{"value":"172.16.77.239"}]}]},{"id":1003,"interfaces":[{"ip_addresses":[{"value":"192.168.0.2"}]}]}]
给出:
[
{
'interfaces' => [
{
'ip_addresses' => [
{
'value' => '172.16.77.239'
}
]
}
],
'id' => 1002
},
{
'interfaces' => [
{
'ip_addresses' => [
{
'value' => '192.168.0.2'
}
]
}
],
'id' => 1003
}
]
重要的注意事项 - 您有嵌套数组([]
表示数组,{}
表示哈希值。
所以你可以用:
来提取你的东西print $item->{interfaces}->[0]->{ip_addresses}->[0]->{value};
或friedo注:
请注意,您可以省略 - &gt;运算符在第一个之后,因此
$item->{interfaces}[0]{ip_addresses}[0]{value}
也可以运行。