有没有人知道可以将xml转换为json的好的Perl模块？

Question

以下是代码：

#!/usr/bin/python
import cgi, cgitb
import httplib2
import xmltodict, json

cgitb.enable()

query = cgi.FieldStorage()
q_value = query["q"].value

h = httplib2.Http()
resp, content = h.request("http://192.168.1.13:8080/solr/select?q=" + q_value, "GET")

p_xml = xmltodict.parse(content)
json_r = json.dumps(p_xml)

print "Content-type: application/json"
print 
print json_r

我正在寻找可比较的Perl模块来实现相同的效果，因为我听说Perl比Python做这些事情要快。这里最大的显然是httplib2和xmltodict，但后者可能只是因为Python适用于dicts。

我是Perl的新手，也是编程的新手，但Stack Overflow是一个非常丰富的知识。

Answer 1

不回答问题，但使用Solr，您可以添加wt=json参数，它将返回json而不是XML ...

http://wiki.apache.org/solr/SolJSON

Answer 2

您是否尝试使用Google搜索perl xml to json？显示的第一个条目是XML::XML2JSON。

获取模块，创建测试用例并报告您的发现。