perl - 在加载URL之前输入用户名和密码以加载URL

Question

我正在尝试使用 ActiveState 的ActivePerl ( WWW::Mechanize) 打开一个网站。

$mech -> get($url);

上述行显示错误：

获取 URL 时出错：未经授权

URL 有一个表单，在其中输入凭据，只有在提交表单时才会加载 URL。即，在 URL 加载之前，它会询问用户名和密码。输入用户名和密码后，如何保持 URL 保持并加载？

Answer 1

您必须使用submit_form方法：

use strict;
use warnings;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;

$mech->get("http://www.example.com/login");
$mech->submit_form(with_fields => {
    USERNAME => '*****',
    PASSWORD => '*****'
});

my $url = "http://www.example.com/page_test";
$mech->get($url);