Can't locate SOAP/Lite.pm

Foros de discusión -> Intermedio

Dom Sep 07, 2008 8:23 am

bboyhacks
Perlero Nuevo

Registrado: 29 Ago 2008
Mensajes: 4

Can't locate SOAP/Lite.pm

Buenas, señores, estoy tratando de hacer búsquedas a través de Google con Perl. Este es un código que da Google de ejemplo:

Perl:

#*******************************************************
#* 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 "$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 - <A href=$url>$titulo</A>: $snippet \n";
} #for
} #if

# --Cerramos la página web
print "</BODY></HTML>";

pero al tratar de correr ese código me dice que no puede cargar el módulo.

Me da ese error

Código:

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?

Dom Sep 07, 2008 8:33 am

explorer
Moderador

Registrado: 24 Jul 2005
Mensajes: 4239
Ubicación: Valladolid, España



Tendrás que instalarlo... cpan SOAP::Lite

Dom Sep 07, 2008 8:50 am

bboyhacks
Perlero Nuevo

Registrado: 29 Ago 2008
Mensajes: 4



Ya lo resolví. Busqué con apt-cache search soap e instalé el que era para Perl.

	Foros de discusión -> Intermedio	Todas las horas son GMT - 6 Horas
Página 1 de 1