コードは次のとおりです。
#!/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 は Python よりもこのようなことを行うのが速いと聞いているので、同じ効果を達成するために同等の Perl モジュールを探しています。ここで最大のものは明らかに httplib2 と xmltodict ですが、後者は単に Python が dict でうまく機能するためかもしれません。
私は Perl もプログラミングもまったく初めての初心者ですが、スタック オーバーフローは信じられないほど豊富な知識を持っています。