add script gsuggest.pl - google suggest

[grml-scripts-core.git] / usr_bin / gsuggest.pl

diff --git a/usr_bin/gsuggest.pl b/usr_bin/gsuggest.pl
new file mode 100755 (executable)
index 0000000..24af6be
--- /dev/null
+++ b/usr_bin/gsuggest.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+# Filename:      gsuggest.pl
+# Purpose:       google suggest - ask google for keyword suggestions
+# Authors:       grml-team (grml.org), (c) Michael Prokop <mika@grml.org>
+# Bug-Reports:   see http://grml.org/bugs/
+# License:       This file is licensed under the GPL v2.
+# Latest change: Mit Jän 10 23:40:04 CET 2007 [mika]
+################################################################################
+
+use strict;
+use warnings;
+use WebService::Google::Suggest;
+
+unless (@ARGV) {
+  print "usage: gsuggest <keyword[s]>\n";
+  exit(1);
+}
+
+my $suggest = WebService::Google::Suggest->new();
+
+while (@ARGV) {
+   my @suggestions = $suggest->complete(shift);
+   for my $suggestion (@suggestions) {
+     print "$suggestion->{query}: $suggestion->{results} results\n";
+   }
+}
+
+## END OF FILE #################################################################