00001 #!/sw/arch/bin/perl
00002 use SOAP::Lite;
00003 my $key='fGeTRvdQFHLfeNjYlcoRt13M6mKs4SgT';
00004 my $query="KIM HENRICK and 9xia";
00005 my $googleSearch = SOAP::Lite -> service("http://api.google.com/GoogleSearch.wsdl"); #"file:googleapi/GoogleSearch.wsdl"
00006 my $result1 = $googleSearch -> doGoogleSearch($key, $query, 0, 10, "false", "", "false", "", "latin1", "latin1");
00007 print "Content-type: text/html\r\n\r\n<html><pre>";
00008 print "About ", $result1->{'estimatedTotalResultsCount'}, " results.\n";
00009 print "\n";
00010 my $resEls = $result1->{'resultElements'};
00011 foreach my $resEl (@$resEls) {
00012 print "\nTitle:\n",$resEl->{'title'}, "\n";
00013 print "URL:\n<a href=",$resEl->{'URL'},">", $resEl->{'URL'}, "</a>\n";
00014 }
00015 my $result2 = $googleSearch -> doSpellingSuggestion($key, $query);
00016 print "\nDid you mean: \'", $result2 , "\'?\n";
00017 print "</pre></html>\n";
00018
00019
