X-Git-Url: http://git.shiar.net/sheet.git/blobdiff_plain/e6b10645e7470208f5122055489c7a19733e50bc..HEAD:/tools/mkjson diff --git a/tools/mkjson b/tools/mkjson index 6a7d948..dace34a 100755 --- a/tools/mkjson +++ b/tools/mkjson @@ -2,6 +2,12 @@ use 5.012; use warnings; use JSON; +use re '/msx'; + +my %opt; +my $jsonify = JSON->new->utf8->canonical; +$jsonify->pretty if $opt{pretty}; my $data = do "./$ARGV[0]" or die $@; -print JSON->new->utf8->canonical->encode($data); +print $jsonify->encode($data) + =~ s{\[ \K\n ([^][]+) (?=\])}{$1 =~ s/(?:\A|\n) \s*//gr}reg;