perl - 如何使用 HTTP 请求发布内容 (Perl)

Question

use LWP::UserAgent;
use Data::Dumper;

my $ua = new LWP::UserAgent;
$ua->agent("AgentName/0.1 " . $ua->agent);
my $req = new HTTP::Request POST => 'http://example.com';
$req->content('port=8', 'target=64'); #problem
my $res = $ua->request($req);

print Dumper($res->content);

如何使用 $req->content 发送多条内容？ $req->content 需要什么样的数据？

它只发送最后一个。

编辑:

发现如果我将其格式化为“port=8&target=64”，它就可以工作。有没有更好的办法？

Answer 1

my $ua      = LWP::UserAgent->new(); 
my $request = POST( $url, [ 'port' => 8, 'target' => 64 ] ); 
my $content = $ua->request($request)->as_string();