services
|
|
Google Web API: "The Google Web APIs service is a beta web program that enables developers to easily find and manipulate information on the web."
A simple Perl code that uses Google Web API:
# --->>> cut here <<<--- use SOAP::Lite; my $key = '0'; # <<< put your key here my $query = shift || 'soap'; my $google = SOAP::Lite->service('http://api.google.com/GoogleSearch.wsdl'); my $result = $google->doGoogleSearch($key,$query,0,10,'false','','false','','latin1','latin1'); die $google->call->faultstring if $google->call->fault; print "About $result->{'estimatedTotalResultsCount'} results.\n"; # --->>> cut here <<<---Other Google API implementations.
New version of SOAP::Lite that fixes security flaw has been shipped.
Posted to services @ 10:03:38 AM ( comments)