JSON:在创建带有 pretty-print 的文件时死于解码

Question

当我使用 pretty-print 版本时，为什么会出现此错误？

'"' expected, at character offset 2 (before "(end of string)") at ./perl.pl line 29.

#!/usr/bin/env perl
use warnings;
use 5.014;
use utf8;
binmode STDOUT, ':encoding(utf-8)';
use Data::Dumper;
use JSON;

my $json = JSON->new->utf8;
my $hashref = { 
    'muster, hanß' => { 
        'hello' => { 
            year => 2000, 
            color => 'green' 
        }
    } 
};

my $utf8_encoded_json_text = $json->pretty->encode( $hashref ); # leads to a die
#my $utf8_encoded_json_text = $json->encode( $hashref ); # works

open my $fh, '>', 'testfile.json' or die $!;
print $fh $utf8_encoded_json_text;
close $fh;

open $fh, '<', 'testfile.json' or die $!;
$utf8_encoded_json_text = readline $fh;
close $fh;
$hashref = decode_json( $utf8_encoded_json_text );
say Dumper $hashref;

Answer 1

因为当您读回文件时，您使用的是 readline，并且只读取文件的第一行。当 pretty 关闭时，整个输出都在一行上。当漂亮打开时，JSON 分布在多行中，因此您将无效的截断 JSON 传递给 decode_json。

使用local $/= undef; 或slurp 读取全部内容或者你想要的任何其他东西。