Foro - Perl en Español

por **situ** » 2012-10-30 15:14 @676

Estoy tratando de parsear un XML que es generado mediante la utilización del método HTTP POST.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Request;
use XML::Simple;
$xml = new XML::Simple;
 
for ( $i = 1; $i < 10; $i++ ) {
    print "Probando $i\n";
    $url   = "http://localhost";
    $query = "$variable=1$i";
    $ua    = LWP::UserAgent->new;
    $ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
    $req = HTTP::Request->new( POST => $url );
    $req->content_type('application/x-www-form-urlencoded');
    $ua->timeout(30);
    $req->content($query);
    $response = $ua->request($req);
    $content  = $response->content();
    $data     = $xml->XMLin($content);
 
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Al ejecutar el obtengo:

could not find ParserDetails.ini in C:/Perl/site/lib/XML/SAX

Digamos no me está andando, mi idea es analizar $content, ya que es el contenido XML de la página.

[XML::SAX::PurePerl]

http://xml.org/sax/features/namespaces = 1

[XML::LibXML::SAX]

http://xml.org/sax/features/namespaces = 1

[XML::LibXML::SAX::Parser]

http://xml.org/sax/features/namespaces = 1

[XML::SAX::Expat]

http://xml.org/sax/features/namespaces = 1

http://xml.org/sax/features/external-general-entities = 1

http://xml.org/sax/features/external-parameter-entities = 1Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2012-10-30 16:01 @709

¿Cómo obtengo ese listado?

Capaz estoy poniendo mal las sentencias, porque siempre manejé el analizador sobre archivos y ahora lo hago sobre una variable.

por **explorer** » 2012-10-30 16:32 @730

En el manual de XML::Simple pone claramente que XMLin() admite varios tipos de argumentos, y uno de ellos puede ser una cadena de caracteres, así que sí que lo estás haciendo bien.

El problema está en ese archivo, ParserDetails.ini, que no lo encuentra.

Yo crearía ese archivo, con el contenido que te he dado, dentro del directorio C:/Perl/site/lib/XML/SAX/

por **situ** » 2012-10-30 17:54 @787

Tuve que borrar algunas líneas ya que no tenía esos .pm y me daba error en la carga.

El archivo me quedó con el siguiente contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

[XML::SAX::PurePerl]
http://xml.org/sax/features/namespaces = 1

Pero ahora obtengo el siguiente resultado cuando hago un:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$data = $xml->XMLin($content) ;
print $data;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

HASH(0x2e0d714)

Lo raro que usando el Dumper me funciona bien, digamos haciendo el print:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Data::Dumper;
$data = $xml->XMLin($content) ;
print Dumper($data);
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-10-30 19:44 @863

El resultado es correcto: XMLin() devuelve una referencia a un hash que contiene la estructura del XML leído.

Ahora solo tienes que acceder dentro de esa referencia a los datos que te interesen.

por **situ** » 2012-10-30 19:58 @873

Muchas Gracias =)

Foro - Perl en Español

XML::Simple

XML::Simple

Publicidad

Re: XML::Simple

Re: XML::Simple

Re: XML::Simple

Re: XML::Simple

Re: XML::Simple

Re: XML::Simple

¿Quién está conectado?