如何使用WWW：机械化登录

Question

I want to login to a persian blogging service . This is my code:

#!/usr/bin/perl

use WWW::Mechanize;

$mech = WWW::Mechanize->new();
$url =  "http://blogfa.com/Desktop/Login.aspx?t=1";
$mech->get($url);

$result = $mech->submit_form(
form_name => 'aspnetForm', #name of the form
#instead of form name you can specify
#form_number => 1
fields      =>
{
 'master$ContentPlaceHolder1$Uid'    => 'my username', # name of the input field and value
 'master$ContentPlaceHolder1$Password'    => 'my password',
}
,'master$ContentPlaceHolder1$btnSubmit'    => 'ورود به بخش مدیریت' #name of the submit button
);

  $result->content();
if ($result =~ /میز کار/) {
print "Done\n"; }
else {
print "Failed!\n"; }

But it doesn't work at all. What is the problem?

Answer 1

The problem is, that WWW:Mechanize does not execute javascript. Since the site you want to log in uses javascript for logging in, its not able to do that.

You could fix that problem by using WWW::Mechanize::Firefox , which allows you to execute javascript.

Answer 2

This should work:

my $mech = WWW::Mechanize->new();
$mech->get("http://blogfa.com/Desktop/Login.aspx?t=1");

$mech->submit_form(

    with_fields => {
        'master$ContentPlaceHolder1$Uid'       => 'my username',
        'master$ContentPlaceHolder1$Password'  => 'my password',
    },
    button => 'master$ContentPlaceHolder1$btnSubmit',
);