5imobi 发表于 2017-5-17 10:45:48

perl xml json

　　use XML::XML2JSON;
　　my $XML = '<test><element foo="bar"/></test>';
　　my $XML2JSON = XML::XML2JSON->new();
　　my $JSON = $XML2JSON->convert($XML);
　　print $JSON;
　　my $RestoredXML = $XML2JSON->json2xml($JSON);
页: [1]
查看完整版本: perl xml json