Using perl Syntax Highlighting
#*******************************************************
#* 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 "<HTML><BODY>\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 "<I><U>$total</U> resultados en Google para la busqueda <U>'$peticion'</U>. Los 10 primeros son:</I></P>\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 "<BR> <B>$numero</B> - <A href=$url>$titulo</A>: $snippet \n";
} #for
} #if
# --Cerramos la página web
print "</BODY></HTML>";
#* 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 "<HTML><BODY>\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 "<I><U>$total</U> resultados en Google para la busqueda <U>'$peticion'</U>. Los 10 primeros son:</I></P>\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 "<BR> <B>$numero</B> - <A href=$url>$titulo</A>: $snippet \n";
} #for
} #if
# --Cerramos la página web
print "</BODY></HTML>";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
pero al tratar de correr ese código me dice que no puede cargar el módulo.
Me da ese error
- Código: Seleccionar todo
root@bboy-laptop:/home/bboy/Escritorio/perl# perl busqueda.pl
Can't locate SOAP/Lite.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl .) at busqueda.pl line 12.
BEGIN failed--compilation aborted at busqueda.pl line 12.
¿Alguien que me puede ayudar a resolver esto?
