Search
SYNOPSIS
GoogleHack - Is a Perl package that interacts with the Google API, and has some basic functionalities that allow the user to issues queries to Google and manipulate the results. The Search.pl program shows the user how to use Google-Hack to issue search requests to Google.
DESCRIPTION
The examples in this module are meant to serve as a means of introducing to the user how to use Google-Hack to use the search method, and retrieve the results.
AUTHOR
Pratheepan Raveendranathan, <rave0029@d.umn.edu>
Ted Pedersen, <tpederse@d.umn.edu>
BUGS
SEE ALSO
GoogleHack home page Pratheepan Raveendranathan Ted Pedersen
Google-Hack Maling List <google-hack-users@lists.sourceforge.net>
COPYRIGHT AND LICENSE
Copyright (c) 2003 by Pratheepan Raveendranathan, Ted Pedersen
This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
You should have received a copy of the GNU General Public License along with this program; if not, write to
The Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEARCH FUNCTION EXAMPLE
SEARCH FUNCTION - search(\%args)
Set your GoogleAPI Key
$key="";
Give the Entire location of your WSDL file
eg "/dirname/dirname/GoogleSearch.wsdl"
$wsdl="";
Create an Object of type WebService::GoogleHack
$google = new WebService::GoogleHack;
Initialize WebService::GoogleHack object to the key and WSDL config file path.
$google->init( "$key","$wsdl");
Now call search function like this:
Here I am searching for duluth.
$results=$google->Search("duluth");
The results variable will now contain the results of your query.
Printing the searchtime
print $google->{'searchTime'};
Printing the snippet element 0
print $google->{'snippet'}->[0];
Printing URL of the first result of the search for duluth.
print $google->{'url'}->[0];