Automate google search

zakkotron has asked for the wisdom of the Perl Monks concerning the following question:

hello i m new to perl and this is my question. I tried a script to automate google search,it worked fine for few trials but after this it still worked but my program did not terminate like it used to.To check the problem i tried the print statement,the wierd thing is that 1 is not printed while i get my 'hello' keyword search in google. Here is the code

print 1;
use warnings;
use strict;
use WWW::Mechanize::Firefox;
my $go=WWW::Mechanize::Firefox->new(current=>'1');
$go->get('http://www.google.com');
$go->field('q','hello',1);
$go->click('btnG');
if($go->on_event())
{exit 0;
}
[download]

i m running mozrepl and it checked it with telnet utility.PLZ TELL ME WHAT IS WRONG!!!!

Comment on Automate google search Download Code

Replies are listed 'Best First'.
Re: Automate google search by wind (Priest) on Jun 25, 2011 at 22:47 UTC
Don't reinvent the wheel, check cpan: Google::Search	[reply]
Re^2: Automate google search by zakkotron (Initiate) on Jun 27, 2011 at 16:06 UTC
This was just a begining,actually i m trying to make a program that can search in multiple search engines but thanks for the help i didnt knew about this module	[reply]
Re^3: Automate google search by Your Mother (Archbishop) on Jun 27, 2011 at 17:18 UTC
That's also been done already: WWW::Search.	[reply]
Re^4: Automate google search by zakkotron (Initiate) on Jun 28, 2011 at 03:51 UTC
Re: Automate google search by Corion (Patriarch) on Jun 25, 2011 at 22:50 UTC
What is this line supposed to do: `$go->field('q','hello',1)` [download] What is this line supposed to do: `if($go->on_event()) ...` [download] Also, where do you have your `print` statement in the code you posted?	[reply] [d/l] [select]
Re^2: Automate google search by zakkotron (Initiate) on Jun 27, 2011 at 16:38 UTC
`$go->field('q','hello',1)` this will set the text hello in google search query `$go->on_event()` this means that the event has completed `print 1` as i have already said in my post that i was testing my program with print statement and it was not getting printed in my program but i was still getting the result	[reply] [d/l] [select]
Re^3: Automate google search by Corion (Patriarch) on Jun 27, 2011 at 17:05 UTC
I'm asking these questions because I wonder where you found that usage of WWW::Mechanize::Firefox, and where it was documented to work. Because to my knowledge, neither the three arguments to `->field` nor `->on_event()` are documented, and `->on_event()` makes no sense.	[reply] [d/l] [select]
Re^4: Automate google search by zakkotron (Initiate) on Jun 28, 2011 at 03:57 UTC