In the name of shameless self-promotion, here is a little script that grabs the first result from the query perl golf and redirects to that page. Basically it imitates the I'm Feeling Lucky button.
Not very intersting, but it might get some people started.
#!/usr/bin/perl -w
use strict;
use SOAP::Lite;
use CGI qw(redirect);
my $key = 'XXXXXXXXXXXXXXXXXXXXXXXXXX';
my $query = 'perl golf';
my $max = 1;
my @params = ($key, $query, 0, $max, 0,'',0,'', 'latin1', 'latin1');
my $result = SOAP::Lite
-> service('file:GoogleSearch.wsdl')
-> doGoogleSearch(@params);
print redirect( $result->{resultElements}[0]{URL} );
To see the script in action, click this. To get the script to work, you need to have GoogleSearch.wsdl in the working directory. This file is available in the API.
Have fun,
--Dave |