Foro - Perl en Español

por **situ** » 2009-12-22 07:48 @366

Tengo un sitio en ASP el cual me devuelve información de mi PC formato XML:
URL: http://localhost/prueba.asp?id=situ
Obtengo en el source del sitio:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<resultado>
<parametros>
<id>123</id>
<hostname>situ</nombre>
<meminfo>1gb</apellido>
</parametros>
</resultado>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El problema es que este formato lo veo en el source del sitio ya que el mismo ASP trae esa información.

¿Hay alguna forma de parsear estos datos?
Saludos.

Que yo sepa, el formato ASP es un fichero fuente, de programación. No son datos.

Al principio dices que te lo devuelve en formato XML, así que eso es suficiente.

Y para interpretarlo con el XML::Simple, sería necesario que pusieras aquí un ejemplo completo, o al menos, las cabeceras y parte del cuerpo del fichero XML.

por **situ** » 2009-12-22 09:23 @433

Perdón, me expresé mal. La utilidad me devuelve los datos de mi PC; sí veo el código fuente del sitio generado; es el XML que pase arriba; pero como decía, la aplicación es ASP y no tengo un archivo .xml para parsear, por eso decía cómo puedo parsear el código fuente del sitio ya que éste sí está en XML.

Yo tengo este script el cual me da el primer dato mediante regex:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use LWP::UserAgent;
my $ua = LWP::UserAgent->new(agent => 'Mozilla/4.8 [en] (Windows NT 6.0; U)');
$ua->timeout(10);
$pc= $ARGV[0];
chomp $pc;
 
$url="http://localhost/prueba.asp?id=situ";
 
my $response = $ua->get($url);
 
 if ($response->is_success) {
if ( $response->content =~ /<id>+(\d+)\D+<id>/ ) {
 
print "$1\n";
    
 }
 else {
     die $response->status_line; 
 } 
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos.

por **explorer** » 2009-12-22 11:46 @532

Bueno, se puede simplificar bastante, aparte de que estás usando más cosas de las que necesitas.

Solo requieres usar el LWP::Simple y el XML::Simple (muy simple, de verdad).

(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use LWP::Simple;
use XML::Simple;
 
my $xml = XMLin(get('http://localhost/prueba.asp?id=situ'));
 
use Data::Dumper;
print Dumper $xml;
 
print "id=>", $xml->{parametros}->{id}, "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Entonces, con una cadena como esta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<resultado>
<parametros>
<id>123</id>
<hostname>situ</hostname>
<meminfo>1gb</meminfo>
</parametros>
</resultado>Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

(no es la misma que has mostrado como ejemplo, ya que no era un xml válido). El resultado es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'parametros' => {

                          'meminfo' => '1gb',

                          'hostname' => 'situ',

                          'id' => '123'

                        }

        };

id=>123Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Las opciones a pasar a XMLin() dependerán un poco del aspecto del XML, pero si es algo sencillo, sale rápido.

por **situ** » 2009-12-22 13:56 @622

Como siempre muchísimas gracias, me salvaste =) y la verdad que en menos de la mitad del código que yo tenía

Foro - Perl en Español

Parseo XML

Parseo XML

Publicidad

Re: Parseo XML

Re: Parseo XML

Re: Parseo XML

Re: Parseo XML

Re: Parseo XML

Re: Parseo XML

¿Quién está conectado?