解析xml的问题

niannian

我在用perl的XML::LibXML解析xml的时候，有这么一个需求，
比如在解析到一个node的时候，如下
<book>
    <name>1234</1234>
    <price>100.00</price>
<book>
我想把book下的所有内容转换成json串，如
{"book" : {"name":"1234", "price":"100.00"}}

我的思路是
1. 把book节点和下面的子节点作为一个单独的xml读入
2. 对上步的xml做转换到json

问题是：
1. libXML可以把某个节点下的内容作为xml 原封不动的读入么？ 还是我应该用别的module?
2. 这时候把xml转换到json用哪个module呢？ JSON?  JSON::XS?

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);

复制代码