perl - LWP::UserAgent 和登录凭据

Question

我正在尝试使用 LWP::UserAgent 设置凭据，但我无法登录。$username、$passwd 是正确的。我不明白我应该在第三个参数中输入什么(根据dos $realm，这里是Authentication)。这里是片段:

my $browser = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/31.2.0',
$browser->credentials("domain.com:80", "Authentication",$username, $passwd);
my $response=$browser->get("http://domain.com/page");

print $response->content;

Answer 1

我按照@ThisSuitIsBlackNot 的建议更正了领域:

Close your browser and reopen it. Navigate to http://domain.com/page. 
If the site is using basic authentication, 
you should get a popup that says something like 
A username and password are being requested by 
http://domain.com. The site says: "foo bar". 
In this case, foo bar is the realm.

然后我可以登录了，但是页面是空的。所以我添加了一个 cookie:

$browser->cookie_jar({ file => ".mycookies.txt" });