#!/usr/bin/perl use strict; use warnings; use WWW::Mechanize; my $url = 'http://perlmonks.org'; my $mech = WWW::Mechanize->new(autocheck => 1); $mech->get($url); $mech->form_number(2); $mech->field('user' => 'myname'); $mech->field('passwd' => 'password'); $mech->click_button(name => 'login'); my $content = $mech->content(); print $mech->success() ? 'yes' : 'no';
Cheers - L~R
In reply to Re: Question in WWW::Mechanize
by Limbic~Region
in thread Question in WWW::Mechanize
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |