perl - 使用 WWW::Mechanize 凭证

Question

我在使用 WWW:Mechanize 的凭据代理来访问和 Web 抓取需要 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方法，因此它也只接受用户名和密码。这些最终传递给 Authen::NTLM。