使用URL中的GET變量發送POST請求（使用LWP :: UserAgent）

Question

我必須向一個包含GET變量（查詢字符串）的URL發出POST請求。

我嘗試了以下（看起來像一個最simepl /邏輯方式）但它不起作用：

my $ua = LWP::UserAgent->new;
my $res = $ua->post('http://my.domain/index.pl?login=yes', {
    username => $username, 
    password => $password
});

my.domain / index.pl確實接收到任何請求但是一旦我刪除查詢字符串“？login = yes”請求正常工作。

Answer 1

my $res = $ua->post('http://my.domain/index.pl?login=yes', {
    username => $username, 
    password => $password
});

歸結為

use HTTP::Request::Common qw( POST );

my $req = POST('http://my.domain/index.pl?login=yes', {
    username => $username, 
    password => $password,
});

my $res = $ua->request($req);

通過使用print $req->as_string(); ，你可以看到，這正是你所說的應該做的。

POST http://my.domain/index.pl?login=yes
Content-Length: 35
Content-Type: application/x-www-form-urlencoded

password=PASSWORD&username=USERNAME

問題出在其他地方。