perl - 如何将用户数据传递给 perl URI 对象

Question

我正在尝试通过 Perl URI 登录 Bugzill，但无法通过“Bugzilla_login=@mentor.com&Bugzilla_password= info.

我需要登录，因为在那之后我想从 bugzilla 中抓取一些数据。

my $data = $scraper->scrape(
my $uri=URI->new('http://prdbugzilla.wv.mentorg.com/bugzilla/show_bug.cgi?id=22444')
);

我正在尝试做类似的事情

curl --data "Bugzilla_login=USER&Bugzilla_password=PASSWORD"  http://prdbugzilla.wv.mentorg.com/bugzilla/show_bug.cgi?id=19971

Answer 1

URI只是构建一个 URI 对象；它不会生成 HTTP 请求。尝试LWP::UserAgent改为HTTP::Requset：

my $req = HTTP::Request->new( POST => 'http://...' );
$req->content('Bugzilla_login=USER&Bugzilla_password=PASSWORD');

然后您可以使用 发送请求LWP::UserAgent。