Net::Google - simple OOP-ish interface to the Google SOAP API
use Net::Google; use constant LOCAL_GOOGLE_KEY => "********************************"; my $google = Net::Google->new(key=>LOCAL_GOOGLE_KEY); my $search = $google->search(); # Search interface $search->query(qw(aaron straup cope)); $search->lr(qw(en fr)); $search->starts_at(5); $search->max_results(15); map { print $_->title()."\n"; } @{$search->results()}; # or... foreach my $r (@{$search->response()}) { print "Search time :".$r->searchTime()."\n"; # returns an array ref of Result objects # the same as the $search->results() method map { print $_->URL()."\n"; } @{$r->resultElements()}; } # Spelling interface print $google->spelling(phrase=>"muntreal qwebec")->suggest(),"\n"; # Cache interface my $cache = $google->cache(url=>"http://search.cpan.org/recent"); print $cache->get();
Provides a simple OOP-ish interface to the Google SOAP API
According to the Google API docs :
"In order to support searching documents in multiple languages and character encodings the Google Web APIs perform all requests and responses in the UTF-8 encoding. The parameters <ie> and <oe> are required in client requests but their values are ignored. Clients should encode all request data in UTF-8 and should expect results to be in UTF-8."
(This package takes care of setting both parameters in requests.)
Valid arguments are :
key
string. A Google API key.
http_proxy
url. A URL for proxy-ing HTTP requests.
debug
Valid options are:
boolean
If true prints debugging information returned by SOAP::Lite to STDERR
coderef.
Your own subroutine for munging the debugging information returned by SOAP::Lite.
Note that prior to version 0.60, arguments were not passed by reference. Versions >= 0.60 are backwards compatible.
Returns an object. Woot!
Get/set the Google API key for this object.
Get/set the HTTP proxy for this object.
Returns a string.
If none is provided then the key passed to the parent Net::Google object will be used.
starts_at
int. First result number to display.
Default is 0.
max_results
int. Number of results to return.
Default is 10.
lr
string or array reference. Language restrictions.
safe
boolean.
filter
coderef
Returns a Net::Google::Search object. Woot!
Returns undef if there was an error.
Valid arguments are:
phrase
string or array reference.
Prints debugging information returned by SOAP::Lite to STDERR
If no option is defined then the debug argument passed to the parent Net::Google object will be used.
Returns a Net::Google::Spelling object. Woot!
String. Google API key.
url
string
If true, prints debugging information returned by SOAP::Lite to STDERR
Returns a Net::Google::Cache object. Woot!
Returns true or false depending on whether or not the current in-memory session has exhausted the Google API 1000 query limit.
1.0
$Date: 2005/03/26 20:49:03 $
Aaron Straup Cope
Marc Hedlund <marc@precipice.org>
http://www.google.com/apis
Net::Google::Search
Net::Google::Spelling
Net::Google::Cache
Net::Google::Response
Net::Google::Service
http://aaronland.info/weblog/archive/4231
Tickle the tests so that they will pass on systems without Test::More.
Add tests for filters.
Add some sort of functionality for managing multiple keys. Sort of like what is describe here :
http://aaronland.net/weblog/archive/4204
This will probably happen around the time Hell freezes over so if you think you can do it faster, go nuts.
Please report all bugs via http://rt.cpan.org
Copyright (c) 2002-2005, Aaron Straup Cope. All Rights Reserved.
This is free software, you may use it and distribute it under the same terms as Perl itself.
To install Net::Google, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::Google
CPAN shell
perl -MCPAN -e shell install Net::Google
For more information on module installation, please visit the detailed CPAN module installation guide.