用WWW :: Mechanize提交表单后如何获取页面内容？

Question

I have a web page which is consist of a log in form . When I submit the form with WWW::Mechanize module in perl , The content of my page changes because username / password is wrong . I want to catch the content of the page after submitting form . I tried to use this :

$mech->content;

But that's not what I need.

This is a piece of my code :

$fields = {
    'usr' => $username,
    'passwd' => $password[0]  
};
$url = "http://blahblah.com/login/index.aspx?id=1";
$mech = WWW::Mechanize->new();
$mech->get($url);
$mech->submit_form(
    form_number=> 1,
    fields => $fields,
    button => 'button'
)
$mech->content;

Also see : How to receive content of a page after submitting a form in perl?

Answer 1

the following code works for me

#!/usr/bin/env perl
use strict;
use warnings;
use feature qw/ say /;
use WWW::Mechanize;

my $username = '';
my $password = '';

my $fields = {
    usr    => $username,
    passwd => $password,
};

my $url  = "http://localhost:3000/login";
my $mech = WWW::Mechanize->new();

$mech->get($url);
$mech->submit_form(
    form_number => 1,
    fields      => $fields,
    button      => 'button'
);

say $mech->content;