The first tones of Freedom

Google code.

#!/usr/local/bin/perl
# goolarge.cgi
# A take-off on “I’m Feeling Lucky,” redirects the browser to the largest
# (size in K) document found in the first n results.  n is set by number
# of loops x 10 results per.
# goolarge.cgi is called as a CGI with form input

# Your Google API developer’s key.
my $google_key=’insert key here’;

# Location of the GoogleSearch WSDL file.
my $google_wdsl = “./GoogleSearch.wsdl”;

# Number of times to loop, retrieving 10 results at a time.
my $loops = 10;

use strict;

use SOAP::Lite;
use CGI qw/:standard/;

# Display the query form.
unless (param(‘query’)) {
print
header(  D
starml%2ml(“

Leave a Reply

c

 

December 2009
M T W T F S S
« Nov    
 123456
78910111213
14151617181920
21222324252627
28293031  

Blog Stats

  • 354,205 hits

RSS Zen Haiku

My Twits

RSS Wired.com

  • An error has occurred; the feed is probably down. Try again later.

RSS Text Link

  • An error has occurred; the feed is probably down. Try again later.

Blog at WordPress.com.

Albeo theme by Design Disease