python - 有谁知道可以将 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

你试过谷歌搜索perl xml to json吗？显示的第一个条目是XML::XML2JSON。

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