#!/usr/bin/perl -w
#*******************************************************
#* EJEMPLO 01 ::: ejemplo01.pl *
#* http://google.dirson.com *
#* Lenguaje: Perl *
#* Búsqueda sencilla con las APIs de Google *
#*******************************************************
# --Módulos a utilizar
# En este caso, usamos SOAP::Lite (http://www.soaplite.com/)
# para poder acceder a Servicios Web
use SOAP::Lite;
# --Variables que le pasamos a Google
# La clave deberá ser la tuya. Puedes conseguirla gratis
# en http://api.google.com/createkey
$peticion = "matrix reloaded";
$clave = "XXXXXXXXXXXXXXXX";
$resultados_inicio = 0;
$numero_resultados = 10;
# --Comenzamos la página web
print "Content-type: text/html\r\n\r\n";
print "\n";
# --Llamamos al Servicio Web
# En este caso, el fichero 'GoogleSearch.wsdl' se encuentra
# en el mismo directorio.
$servicio = SOAP::Lite -> service('file:./GoogleSearch.wsdl');
# --Llamamos a la función doGoogleSearch
$resultado = $servicio -> doGoogleSearch($clave, $peticion,
$resultados_inicio, $numero_resultados, "false", "", "false", "", "", "" );
# --Imprimimos los resultados
# Los imprimimos solamente si existe el
# array '$resultado->{resultElements}'
if(defined($resultado->{resultElements}))
{
# El número total de resultados de la búsqueda es el valor
# que devuelve 'estimatedTotalResultsCount'
$total = $resultado->{'estimatedTotalResultsCount'};
print "$total resultados en Google para la busqueda '$peticion'. Los 10 primeros son:\n";
# Para cada elemento del array '$resultado->{resultElements}',
# obtenemos tres propiedades (URL, title y snippet) que las
# imprimimos.
for ($i=0; $i<$numero_resultados; $i++)
{
$numero = $i+1;
$url = $resultado->{resultElements}->[$i]->{URL};
$titulo = $resultado->{resultElements}->[$i]->{title};
$snippet = $resultado->{resultElements}->[$i]->{snippet};
print "
$numero - $titulo: $snippet \n";
} #for
} #if
# --Cerramos la página web
print "";