Foro - Perl en Español

por **panterozo** » 2010-02-04 10:12 @466

Hola nuevamente...
Necesito obtener el valor de un tag de un xml...

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
<response>
<result code="1000">
        <msg lang="en">Command completed successfully</msg>
</result>
        <trID>
                <clTRID>ABC-LOGOUT</clTRID>
                <svTRID>FI</svTRID>
        </trID>
</response>
</epp>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0">
<response>
<result code="2000">
        <msg lang="en">Unknown command</msg>
</result>
        <trID>
                <svTRID>FI</svTRID>
        </trID>
</response>
</epp>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Necesito obtener el valor del código del error...

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<result code="?????">Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

He obtenido los valores según los nombre de los tag, es decir,

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$parser= XML::LibXML->new();
my$tree=$parser->parse_string($xml);
my$root=$tree->getDocumentElement;
print$root->getElementsByTagName('result');
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y obtengo el valor de "Command completed successfully", o dependiendo del caso...
¿¿Alguna idea de cómo poder realizarlo con XML::LibXML??

thanks

                my $parser = XML::LibXML->new();
                my $tree =      $parser->parse_string($xml);
                my $root = $tree->getDocumentElement;   
                my @code= $root->getElementsByTagName('result');
                foreach my $valor(@code){#Para sacar los atributos del XML
                        $codigo=$valor->getAttribute('code');#atributo code
                        }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

explorer escribiste:¿Por qué no usas los módulos para EPP?

Hace un par de semanas que estoy trabajando con Perl, además de que esté todo en inglés, hay muchas cosas que no entiendo... Estoy aprendiendo a trabajar con módulos y demáses...

Muchas gracias por sus respuestas.

Foro - Perl en Español

Valor de un tag XML

Valor de un tag XML

Publicidad

Re: Valor de un tag XML

Re: Valor de un tag XML

Re: Valor de un tag XML

¿Quién está conectado?