usr_bin/gsuggest.pl

   1 #!/usr/bin/perl
   2 # Filename:      gsuggest.pl
   3 # Purpose:       google suggest - ask google for keyword suggestions
   4 # Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
   5 # Bug-Reports:   see http://grml.org/bugs/
   6 # License:       This file is licensed under the GPL v2.
   7 ################################################################################
   8
   9 use strict;
  10 use warnings;
  11 use WebService::Google::Suggest;
  12
  13 unless (@ARGV) {
  14   print "usage: gsuggest <keyword[s]>\n";
  15   exit(1);
  16 }
  17
  18 my $suggest = WebService::Google::Suggest->new();
  19
  20 while (@ARGV) {
  21    my @suggestions = $suggest->complete(shift);
  22    for my $suggestion (@suggestions) {
  23      print "$suggestion->{query}: $suggestion->{results} results\n";
  24    }
  25 }
  26
  27 ## END OF FILE #################################################################