Google Bounce

You can get random results from Google with a database of words and random numbers. Why not try a Google Bounce?

The Google Bounce accepts a query word from the user and does a search. It pulls a random title word from one of the search results and searches for that word. It does this a random number of times. In the end, it’ll list the top 10 results for the final query. There’s a filter to try to make sure that common Google “stop words” (e.g., the, is, a) are removed from the query.

The Code

#!/usr/local/bin/perl # Version 1.3, 7/29/2002 # googlebounce.cgi # Bounce around from a user-specified query to a random set # of results. # googlebounce.cgi is called as a CGI with form input use vars qw/$google_key $google_wsdl $max_bounces $current_bounce/; # Your Google API developer's key $google_key='insert key here'; # Location of the GoogleSearch WSDL file $google_wdsl = "./GoogleSearch.wsdl"; use SOAP::Lite; use LWP::Simple qw/get/; use CGI qw/:standard/; print header( ), start_html("GoogleBounce"), h1("GoogleBounce"), start_form(-method=>'GET'), 'Query: ', textfield(-name=>'query'), '   ', submit(-name=>'submit', -value=>'Search'), end_form( ), p( ); print "\n"x4; if (param('query')) { $|++; # turn off buffering print h3("Progress Report..."); # Choose a random number of bounces $max_bounces = int(rand(5))+2; # Set the counter to bounce number 1 $current_bounce = 1; bounce(param('query')); } sub bounce { my($query) = @_; my $new_query; # Filter query for stopwords ...

Get Google Hacks now with the O’Reilly learning platform.

O’Reilly members experience live online training, plus books, videos, and digital content from nearly 200 publishers.