使用 WWW::Mechanize 凭证

Question

我在使用 WWW:Mechanize 的凭据代理访问和网页抓取需要 NTLM 身份验证的站点时遇到问题。我在网上看到凭证代理需要 4 个参数：基础、领域、用户名和密码。我不确定基础或领域使用什么，因此这些示例将非常有帮助。当我运行我的代码时，我在 $url get 的行上得到一个未经授权的错误。任何帮助将不胜感激

#!/usr/bin/perl
use strict;
use warnings;


use WWW::Mechanize;

use HTML::TokeParser;


my $url= shift || "mywebsite.com";

my $agent = WWW::Mechanize->new( autocheck => 1 );

$agent->credentials ( "proxy:port", '', 'domain/username', 'password' );

$agent->proxy(['https', 'http', 'ftp'], 'proxy:port');

$agent->get( $url );

print $agent->content();

Answer 1

阅读您正在使用的软件的文档会有所帮助。 WWW::Mechanize 覆盖了credentials method，因此它也只接受用户名和密码。这些最终传递给 Authen::NTLM。