在加载网址之前输入用户名和密码以加载网址

时间:2013-02-26 12:32:04

标签: perl activestate

我正在尝试使用活动状态perl(WWW::Mechanize)打开网站。

$mech -> get($url);

上述行显示错误。

Error GETing URL : Unauthorized

网址包含输入凭据的表单,只有在提交表单时才会加载网址。即在URL加载之前,它要求输入用户名和密码。如何保留URL并在输入用户名和密码后加载它?

1 个答案:

答案 0 :(得分:0)

您必须使用 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);