HTTP ::帶查詢請求錯誤

Question

我有如圖所示波紋管與HTTP ::在Perl，其中它不會與quesry字符串POST請求的錯誤：

$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?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");