小编UKR*_*UKR的帖子

我试图在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};

但我没有得到任何输出.

谁能告诉我什么是错的？

我也是编程和学习Perl的新手.

这是我的问题:我如何使用Perl模块解析Perl中的数据？

<h4>This is the line</h4>
abc : 130.65 TB<br>
dif : 74.52 TB<br>
asw : 56.13 TB<br>
qwe : 57<br>

这是来自网页的示例数据,我想要一个类似的输出

abc = 130.65 TB
dif = 74.52 TB
asw = 56.13 TB
qwe = 57

谁能帮帮我吗？