小编use*_*384的帖子

我在 Perl 程序中使用 json 文件。我无法解析 json 文件。

它给出以下错误：

garbage after JSON object, at character offset 2326471 (before "{"response":{"numFou...") at /usr/local/share/perl5/JSON.pm line 171, <$f> line 1.

这是代码：

print "input json";
open(my $f, "<", "$ARGV[1]");
my $content=<$f>;
my $structured;
eval {
$structured = from_json($content, {utf8 => 1});
};

if ($@) {
   $content =~ s/\n/ /g;
   my $errMsg = $@;
   $errMsg =~ s/\n/ /g;
   WriteInfo("Unparseable result for url=$url, error: $errMsg\n") ;
};

我该如何解决这个错误？