带有查询字符串的 HTTP::Request 错误

Question

我在 perl 中遇到 HTTP::Request 错误，它不会使用查询字符串发布，如下所示：

$request = HTTP::Request->new(POST => "http://example.com/file.pl?query=blablabla");

 $ua = LWP::UserAgent->new;
 $response = $ua->request($request);

它不是发送带有“?query=blablabla”的帖子，而只是将帖子发送到“http://example.com/file.pl”而不是http://example.com/file.pl?query=blablabla

Answer 1

这应该可行。

$param = "query=blablabla";
$req = HTTP::Request->new(POST => $url);
$req->content($param);

$ua = LWP::UserAgent->new;
$res = $ua->request($req);

您也可以像这样向您的请求添加标头：

$req->header('Accept-Encoding' => "gzip,deflate");
$req->header('Accept-Charset' => "ISO-8859-1,utf-8;q=0.7,*;q=0.7");