我将尝试在Perl中解析JSON文件。我想要提取"名称"键及其对应的值。
我的文件看起来像这样:
我正在尝试以下代码:
{
"data":[
{
"name":"ABC",
"id":"123",
},
{
"name":"PQR",
"id":"456",
},
{
"name":"XYZ",
"id":"789",
}
]
}
我正在尝试以下代码:
#/usr/lib/perl
use lib qw( ..);
use LWP::Simple;
use JSON;
my $filename = '/file.txt';
my $data;
if (open (my $json_str, $filename))
{
local $/ = undef;
my $json = JSON->new;
$data = $json->decode(<$json_str>);
close($json_stream);
}
print $data->{name};
但是我没有得到任何输出。
有人能告诉我错在哪里吗?