我在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
答案 0 :(得分: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");