如何使用Perl进行身份验证时不需要？

Question

尝试访问需要使用此代码进行身份验证的页面时：

my $browser = LWP::UserAgent−>new;
my $url = 'http://www.unicode.org/mail−arch/unicode−ml/y2002−m08/0067.html';
my $response = $browser−>get($url);

生成预期错误：

Error: Basic realm="Unicode−MailList−Archives"
       401 Authorization Required
       at http://www.unicode.org/mail−arch/unicode−ml/y2002−m08/0067.html

这是照顾：

$browser−>credentials(
 'www.unicode.org:80',
 'Unicode−MailList−Archives',
 'unicode−ml' => 'unicode'
);

但我的问题是如何在可选但不需要时使用身份验证。例如，如果我想输入http://www.coolstuffinc.com/user_main.php，如果我登录它会将我带到我的用户页面，如果我不是，它会将我带到主页。 我怎么能这样做，它使用我的凭据进入用户页面。

Answer 1

与往常一样，如果您正在浏览，请像您一样：导航到登录表单，填写，提交，然后访问您真正想要访问的页面。

登录将为您提供一个cookie，该cookie将在以后的请求中自动提交。这就是网站知道谁登录的方式。