HTTP :: Request ошибка строки запроса

Question

У меня ошибка с HTTP :: Request в Perl, где это обыкновение размещать со строкой quesry, как показано ниже:

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