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

version 0.05

  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";
  }

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).

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.

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

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

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.