NAME

WebService::Google::Suggest - Google Suggest as an API

VERSION

version 0.05

SYNOPSIS

use WebService::Google::Suggest;

my $suggest     = WebService::Google::Suggest->new();
my @suggestions = $suggest->complete("goog");
for my $suggestion (@suggestions) {
  print "[" . $suggestion->{rank} . "] "
    . $suggestion->{query} . ":"
    . $suggestion->{results} results . "\n";
}

DESCRIPTION

WebService::Google::Suggest allows you to use Google Suggest as a Web Service API to retrieve completions to your search query or partial query. This module is based on Adam Stiles' hack (http://www.adamstiles.com/adam/2004/12/hacking_google_.html).

METHODS

new
$suggest = WebService::Google::Suggest->new();

Creates new WebService::Google::Suggest object.

complete
@suggestions = $suggest->complete($query);

Sends your $query to Google web server and fetches suggestions for the query. Suggestions are in a list of hashrefs, for example with query "Google":

@suggestions = (
  { query => "google",         results => 0, rank => 0 },
  { query => "google toolbar", results => 0, rank => 1 },
  ...
);

Note that results value does NOT contain commas and "results" text.

ua
$ua = $suggest->ua;

Returns underlying LWP::UserAgent object. It allows you to change User-Agent (Windows IE by default), timeout seconds and various properties.

SEE ALSO

http://www.adamstiles.com/adam/2004/12/hacking_google_.html

http://www.google.com/webhp?complete=1&hl=en

http://labs.google.com/suggest/faq.html

AUTHOR

Tatsuhiko Miyagawa <miyagawa@bulknews.net>, franck cuny <franck@lumberjaph.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Tasuhiko Miyagawa.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.