Foro - Perl en Español

por **MARKO** » 2019-05-16 00:58 @082

Saludos, Perl en español.

En julio de 2018 creé una aplicación que obtenía un XML de cierta página y luego lo convertía en una estructura hash para facilitar su análisis.

La misma dejó de funcionar por lo que revisé la página y comprobé que la misma funciona correctamente; por lo anterior revisé mi código y me encontré que la parte que transforma cualquier XML en hash funciona correctamente.

Logré comprobar que la parte que no está funcionando es la línea que dice my $cadena_xml = get($url);

Adjunto un trozo de código que duplica el problema:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use LWP::Simple;
use XML::Simple;
 
system("cls");
 
my $url = 'https://www.w3schools.com/xml/note.xml';             
my $cadena_xml = get($url);
 
my $ref_estructura = XMLin($cadena_xml);
 
use Data::Dumper::Simple;
warn Dumper($ref_estructura);
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Al correr el código sale lo siguiente:

Could not find ejemplo.xml in C:\Users\jarias\Desktop\ at C:\Users\jarias\Desktop\ejemplo.pl line 11

¿Qué podría hacer para que volviera a funcionar?

Gracias por adelantado.

Es muy extraño que deje de funcionar así.

Las razones que se me ocurren:

* existe algún tipo de cortafuegos entre tu equipo y el destino que impide las conexiones 443 (HTTPS).
* se ha actualizado el Perl y no se ha incluido en la instalación el paquete LWP::Protocol::https

¿Has probado con otras URL diferentes?

por **MARKO** » 2019-05-16 18:08 @797

Cambios con los cuales funcionó:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use HTTP::tiny;
use XML::Simple;
 
system("cls");
 
my $url = 'https://www.w3schools.com/xml/note.xml';             
 
my $ref_xml = HTTP::Tiny->new->get($url);
 
my $cadena_xml = ${$ref_xml}{'content'};
 
my $ref_estructura = XMLin($cadena_xml);
 
use Data::Dumper::Simple;
warn Dumper($ref_estructura);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Usando la librería HTTP::tiny y haciendo unos cuantos cambios en el manejo volvió a funcionar el script. Al crear el ejecutable me daba error y me decía que tenía que instalar IO::Socket::SSL y NET::SSLeay (los cuales ya estaban instalados) por lo cual agregue las lineas

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use IO::Socket::SSL;
use NET::SSLeay;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y al crear el ejecutable funcionó de maravilla.

Foro - Perl en Español

Problema con get() del LWP::Simple (antes funcionaba)

Problema con get() del LWP::Simple (antes funcionaba)

Publicidad

Re: Problema con get() del LWP::Simple (antes funcionaba)

Re: Problema con get() del LWP::Simple (antes funcionaba)

Re: Problema con get() del LWP::Simple (antes funcionaba)

Re: Problema con get() del LWP::Simple (antes funcionaba)

¿Quién está conectado?