使用Perl解析JSON的麻烦

发布时间：2020-12-15 23:27:02 所属栏目：大数据来源：网络整理

导读：我有一个 JSON文件,我试图在Perl中解析它.到目前为止,我有： use strict;use warnings;use JSON;open my $fh,"/Users/arjunnayini/Desktop/map_data.json"; my @decoded_json = @{decode_json($fh)}; 但我得到一个错误,我有一个： “格式错误的JSON字符串,无

我有一个 JSON文件,我试图在Perl中解析它.到目前为止,我有：

use strict;
use warnings;
use JSON;

open my $fh,"/Users/arjunnayini/Desktop/map_data.json";   


my @decoded_json = @{decode_json($fh)};

但我得到一个错误,我有一个：
“格式错误的JSON字符串,无论是数组,对象,数字,字符串还是原子,都在字符偏移0处(在”GLOB(0x100804ed0)“之前)”

我很确定JSON文件格式正确,所以我不确定这是哪里出错的.有什么建议？

解决方法

假设您对JSON的调用是正确的,您需要首先将文件粘贴到：

#!/usr/bin/perl

use strict;
use warnings;
use JSON;

my $json;
{
  local $/; #enable slurp
  open my $fh,"<","/Users/arjunnayini/Desktop/map_data.json";
  $json = <$fh>;
} 

my @decoded_json = @{decode_json($json)};

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!