Question

我正在尝试将json文件转换为xml。因此扫描JSON目录，如果到达那里的任何文件将转换为xml并移动到xml目录。

但我收到此错误

在pson.pl第29行关闭文件句柄$ fh上的
readline（）格式错误的JSON字符串，无论是数组，对象，数字，字符串还是原子，在json.pl第34行的字符偏移量0（在（字符串的结尾）之前）

json.pl

#!/usr/bin/perl

use strict;
use warnings;
use File::Copy;

binmode STDOUT, ":utf8";
use utf8;

use JSON;
use XML::Simple;

# Define input and output directories
my $indir = 'json';
my $outdir = 'xml';

# Read input directory
opendir DIR, $indir or die "Failed to open $indir";
my @files = readdir(DIR);
closedir DIR;

# Read input file in json format
for my $file (@files) 
{
my $json;
{
    local $/; #Enable 'slurp' mode
    open my $fh, "<", "$indir/$file";
    $json = <$fh>;
    close $fh;
}

# Convert JSON format to perl structures
my $data = decode_json($json);

# Output as XML
open OUTPUT, '>', "$outdir/$file" or die "Can't create filehandle: $!";
select OUTPUT; $| = 1;
print "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>\n";
print XMLout($data);
print "\n" ;
close(OUTPUT);
unlink "$indir/$file";

}

example.json

{
"Manager":
    {
        "Name" : "Mike",
        "Age": 28,
        "Hobbies": ["Music"]
     },
"employees":
    [
        {
            "Name" : "Helen",
            "Age": 26,
            "Hobbies": ["Movies", "Tennis"]
           },
        {
            "Name" : "Rich",
            "Age": 31,
            "Hobbies": ["Football"]

        }
    ]
}

Answer 1

您在open期间未检查错误，并且您没有跳过目录条目（readdir将返回.和..个条目）

如果您使用

open my $fh, "<", "$indir/$file" or die "$file: $!";

你可能很快就会发现问题。

＆＃34; readline（）关闭文件句柄$ fh＆＃34;正在说＆＃34; open $fh失败了，但你仍然继续前进＆＃34;。

Answer 2

正如@cjm指出的那样，问题是您正在尝试打开和读取目录以及源目录中的文件。

这是一个修复，它还使用autodie来避免不断检查所有IO操作的状态。我也整理了一些东西。

#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use autodie;

use open qw/ :std :encoding(utf8) /;

use JSON qw/ decode_json /;
use XML::Simple qw/ XMLout /;

my ($indir, $outdir) = qw/ json xml /;

my @indir = do {
  opendir my $dh, $indir;
  readdir $dh;
};

for my $file (@indir) {

  my $infile = "$indir/$file";
  next unless -f $infile;

  my $json = do {
    open my $fh, '<', $infile;
    local $/;
    <$fh>;
  };

  my $data = decode_json($json);

  my $outfile = "$outdir/$file";
  open my $out_fh, '>', "$outdir/$file";
  print $out_fh '<?xml version="1.0" encoding="UTF-8" standalone="yes"?>', "\n";
  print $out_fh XMLout($data), "\n";
  close $out_fh;

  unlink $infile;
}

Perl中格式错误的JSON字符串

2 个答案: