RE: learning WWW::Mechanize

[Dan Fish]

Assuming what you are really looking for from this is the page returned by
the search, then you need to move the line:
 
print $mechObject -> content;

to the end.

-Dan
-----------------------------------
#!/usr/bin/perl

use strict;
use warnings; 
use WWW::Mechanize;
 
my $queryString = 'HelloWorld';
my $url = 'http://www.google.com/';
my $mechObject = WWW::Mechanize->new( autocheck => 1 ); 
$mechObject -> get($url);

$mechObject->form_number(1);
$mechObject->field("q", $queryString);
$mechObject->click("btnG");

print $mechObject -> content;


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/