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 # Latest change: Mit Jän 10 23:40:04 CET 2007 [mika]
   8 ################################################################################
   9
  10 use strict;
  11 use warnings;
  12 use WebService::Google::Suggest;
  13
  14 unless (@ARGV) {
  15   print "usage: gsuggest <keyword[s]>\n";
  16   exit(1);
  17 }
  18
  19 my $suggest = WebService::Google::Suggest->new();
  20
  21 while (@ARGV) {
  22    my @suggestions = $suggest->complete(shift);
  23    for my $suggestion (@suggestions) {
  24      print "$suggestion->{query}: $suggestion->{results} results\n";
  25    }
  26 }
  27
  28 ## END OF FILE #################################################################