Perl如何把xml转换成json？

niannian

比如把
<virtualApplianceQuery>
    <name>Virtual Appliance query 1</name>
    <value>trunk = VA1</value>
</virtualApplianceQuery>
转换成
{"virtualApplianceQuery":{"name":"Virtual Appliance query 1","value":"trunk = VA1"}}
这样的module？

sjdy521

XML::Simple;
JSON;

请cpan上搜索

niannian

哦。。对。。多谢楼上。。

xiyoulaoyuanjia

1. use XML::XML2JSON;
   
2.         
   
3.         my $XML = '<test><element foo="bar"/></test>';
   
4.         
   
5.         my $XML2JSON = XML::XML2JSON->new();
   
6.         
   
7.         my $JSON = $XML2JSON->convert($XML);
   
8.         
   
9.         print $JSON;
   
10.         
    
11.         my $RestoredXML = $XML2JSON->json2xml($JSON);

复制代码

zk1878

xiyoulaoyuanjia 发表于 2012-08-28 14:57

这个库很好用， 但我始终安装报错，  你是怎么安装的 呢  我是win7,   perl -e shell -MCPAN,  install XML::XML2JSON
感觉perl安装某些模块 好麻烦，经常安装不了，它们内部又有依赖