なんとなく
#!/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";
MTのいんすとーるの練習と、その他びぼうろく・・・
なんとなく
#!/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";
コメントする