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

根据这个

使用WWW :: Mechanize凭证

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

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

 my $username = "domain\\user";