Re^6: use WWW::Mechanize or LWP to interface with WEB

$mech->form_number(0) is the first form,
$mech->form_number(1) is the second form,
and so on...

No, the doc says: Forms are indexed from 1, so the first form is number 1, not zero.

Open source softwares? Share and enjoy. Make profit from them if you can. Yet, share and enjoy!

Comment on Re^6: use WWW::Mechanize or LWP to interface with WEB

Replies are listed 'Best First'.

Re^7: use WWW::Mechanize or LWP to interface with WEB
by learnperl (Acolyte) on Nov 16, 2007 at 18:22 UTC

form_number(2)

regex

print $mechObject->content;

How can I accomplish this..

my $url = 'http://www.ancestry.com/';
my $mechObject = WWW::Mechanize->new();

$mechObject->get($url);
die "can't get page!" 
  unless $mechObject->success &&
          $mechObject->content =~ /Your First Name/i;
  
die "can't find form!"
  unless $mechObject->form_number(2);

my @values = ('first', 'last', [option => 'M']);
die "couldn't fill out form!"
  unless $mechObject->set_visible(@values) == 3;

$mechObject->submit;
die "can't submit form!" 
  unless $mechObject->success && 
          $mechObject->content =~ /Your Last Name/i;
          
print $mechObject->content;
[download]

Thanks in advance..
LearnPerl

[reply]
[d/l]


Welcome to the Monastery
	PerlMonks