带有 NTLM 身份验证的 Perl 机械化

【问题标题】：Perl Mechanize with NTLM authentication带有 NTLM 身份验证的 Perl 机械化
【发布时间】：2013-09-03 21:07:04
【问题描述】：

我还没有看到使用 Mechanize 支持 NTLM 的示例。有谁知道我们如何通过 Mechanize 使用 NTLM 库？如果没有，LWP 能胜任吗？

my $mech = WWW::Mechanize->new( 'keepalive' => 1 );

my $url = "http://URL/I/NEED/TO/ACCESS"; <---Requires NTLM authorization
my $username = "username";
my $password = "password";

$mech->credentials($username, $password);
$mech->get($url);

【问题讨论】：

标签： perl mechanize ntlm lwp

【解决方案1】：

据此

Using WWW::Mechanize Credentials

您需要确保您正在使用 v1.5.2 或更高版本的 WWW::Mechanize，最终它将使用 Authen::NTLM

如果您的真实用户名中有反斜杠，则必须使用单引号或转义它

 my $username = "domain\\user";

【讨论】：

该链接没有描述如何将 Authen::NTLM 与 WWW::Mechanize 一起使用