As I Please

MTのいんすとーるの練習と、その他びぼうろく・・・

xm2json.pl

なんとなく

#!/usr/bin/perl
#
#               xml2json.pl
#
#               usage :  xml2json.pl < foo.xml > foo.json
#
#
use strict;
use XML::XML2JSON;
$|=1;
my $xml = join '',;
my $xml2json = XML::XML2JSON->new();
my $JSON = $xml2json->convert($xml);
print STDOUT $JSON,"\n";

コメントする