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

Question

我正在尝试通过 Perl URI 登录 Bugzill，但无法通过
“Bugzilla_login=@mentor.com&Bugzilla_password= 信息。
我需要登录，因为在那之后我想从 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 发送请求.