Foro - Perl en Español

por **panterozo** » 2010-02-16 09:12 @425

He estado implementando el protocolo EPP (Extensible Provisioning Protocol), y ando buscando la forma de dejar el siguiente xml...

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?><epp xmlns="urn:ietf:params:xml:ns:epp-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0 epp-1.0.xsd"><response><result code="1000"><msg>Command completed successfully</msg></result><msgQ count="156" id="307886"/><resData><host:chkData xmlns:host="urn:ietf:params:xml:ns:host-1.0" xsi:schemaLocation="urn:ietf:params:xml:ns:host-1.0 host-1.0.xsd"><host:cd><host:name avail="0">ns1.host.com</host:name><host:reason>In use</host:reason></host:cd></host:chkData></resData><trID><clTRID>ABC-12345</clTRID><svTRID>52495643</svTRID></trID></response></epp>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

en el que le sigue,

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="UTF-8"?>
<epp xmlns="urn:ietf:params:xml:ns:epp-1.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="urn:ietf:params:xml:ns:epp-1.0 epp-1.0.xsd">
<response>
      <result code="1000">
            <msg>Command completed successfully</msg>
      </result>
      <msgQ count="156" id="307886"/>
      <resData>
            <host:chkData xmlns:host="urn:ietf:params:xml:ns:host-1.0" xsi:schemaLocation="urn:ietf:params:xml:ns:host-1.0 host-1.0.xsd">      
      <host:cd>
            <host:name avail="0">ns1.host.com</host:name>
            <host:reason>In use</host:reason>
      </host:cd></host:chkData>
      </resData>
      <trID>
            <clTRID>ABC-12345</clTRID>
            <svTRID>52495643</svTRID>
      </trID>
</response>
</epp>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema principal, es que los XML entrantes, son distintos cada vez que se reciben del server. ¿Alguna sugerencia de cómo ordenar estos XML por nodos o algo así?

Muchas gracias.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use XML::Simple;
use Data::Dumper;
 
my $xml = XMLin('code_21097.xml');
#print Dumper $xml;
 
print $xml->{response}->{trID}->{clTRID}, "\n";
print $xml->{response}->{msgQ}->{id}, "\n";
print $xml->{response}->{result}->{msg}, "\n";
 
print "\n";
 
$xml = XMLin('code_21097_1.xml');
#print Dumper $xml;
 
print $xml->{response}->{trID}->{clTRID}, "\n";
print $xml->{response}->{msgQ}->{id}, "\n";
print $xml->{response}->{result}->{msg}, "\n";
 
__END__
ABC-12345
307886
Command completed successfully
 
ABC-12345
307886
Command completed successfully
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **panterozo** » 2010-02-16 14:34 @648

Mi intención es hacerlo con XML::LibXML... Cuando lo resuelva pongo la solución

por **panterozo** » 2010-02-16 16:04 @711

panterozo escribiste:Mi intención es hacerlo con XML::LibXML... Cuando lo resuelva pongo la solución

Con $root->toString(1);, y sale perfecto

Foro - Perl en Español

Parser XML

Parser XML

Publicidad

Re: Parser XML

Re: Parser XML

Re: Parser XML

¿Quién está conectado?