尝试使用perl和lwp获取bugzilla的内容

时间:2016-10-28 12:54:29

标签: windows perl lwp

我正试图在文件中获取bugzilla的bug。我必须在Perl中使用LWP模块。现在,我只能获取主页的内容,我必须输入我的凭据,但是当我想要传递我的凭据时它不起作用。结果我甚至没有错误,只有主页的内容。喜欢它甚至没有尝试连接。这就是我现在所做的:

use LWP;
open ($content, ">>content.txt") or die;
open ($error, ">>error.txt") or die;
open ($header, ">>header.txt") or die;
my $browser = LWP::UserAgent->new;
$browser->credentials('www.monsite.com:80', 'mon_domaine', 'mon_domaine\\mon_login', 'mon_mot_de_passe');

my $url = 'url';

my $request = new HTTP::Request( GET => $url );
my $headers = $request->headers();
my $response = $browser->request($request);
if ($response->is_success) {
my $headers = $response->headers();
print $header "Encoding : ".$headers->header("WWW-Authentification");                
print $content "Content:\n".$response->content."\n";
} else {
print $error "Erreur:".$response->status_line."\n";  
}

最后,文件头不包含任何内容,文件内容包含登录页面的内容,文件错误不包含任何内容。 THX。

0 个答案:

没有答案