JSON：创建具有漂亮打印的文件时在解码时死亡

Question

当我使用漂亮的打印版本时，为什么会出现此错误？

预计为 '"'，位于 ./perl.pl 第 29 行的字符偏移量 2 处（“(string end)”之前）。

#!/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 关闭时，整个输出都在一行上。当启用 Pretty 时，JSON 会分布在多行中，因此您将无效的截断 JSON 传递给 decode_json。

使用 local $/ = undef; 或 slurp 或无论你想要什么。