Perl使用NTLM身份验证进行机械化

Question

我还没有看到使用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);          

Answer 1

根据这个

Using WWW::Mechanize Credentials

你需要确保你;重新使用WWW :: Mechanize的v1.5.2或更高版本，最终它将使用Authen :: NTLM

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

 my $username = "domain\\user";