PHPスクリプトへのHTTPURLConnectionを作成し、スクリプトによって返されるHTTP応答を取得したいと思います。Perlでこれを行う方法はありますか?
要するに、私は次と同等のPerlが欲しいです:
java.net.URL url = new java.net.URL(urlPath);
java.net.HttpURLConnection conn = (java.net.HttpURLConnection) url.openConnection();
conn.setRequestMethod("POST");
conn.setDoOutput(true);
conn.setDoInput(true);
conn.setUseCaches(false);
conn.setRequestProperty("content-type", "application/x-www-form-urlencoded");
conn.setRequestProperty("Content-Length", Integer.toString(body.length()));
conn.setRequestProperty("Cookie", "ONTCred=" + cookie);
conn.connect();
java.io.PrintWriter pw = new java.io.PrintWriter(conn.getOutputStream());
pw.print(body); // "send" the body
pw.flush();
pw.close();
if (conn.getResponseCode() != java.net.HttpURLConnection.HTTP_OK) {
throw new java.io.IOException("Error on POST to " + url + ": " + conn.getResponseMessage());
}
// for debugging, if you want to see the header info, uncomment this section
// for (String key : conn.getHeaderFields().keySet()) {
// System.out.println("header: '" + key + "' = '" + conn.getHeaderField(key) + "'");
// }
同様のperlモジュールを検索しようとしていますが、見つかりませんでした。どんな助けでも大いに役立つでしょう。