Foro - Perl en Español

por **jomarq** » 2015-01-13 12:38 @568

Buenas tardes, amigos perlianos.

Mi duda es acerca de esta estructura en XML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<data>
  <meta>
    <sender type="IMEI">400234062240570</sender>
    <receiver type="E-mail Account">[email protected]</receiver>
    <time>2015-01-10T19:52:06Z</time>
    <protocol>SBD</protocol>
    <type>NAL GPS Report 6</type>
  </meta>
</data>
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Tengo una parte de mi código en Perl que es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print xml join q{|},
        $datos->{meta}{sender}{type},
        $datos->{meta}{receiver}{type},
        $datos->{meta}{time},
        $datos->{meta}{protocol},
        $datos->{meta}{type};
print xml "\n";
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El cual me da los siguientes datos:

IMEI|E-mail Account|2015-01-10T19:52:06Z|SBD|NAL GPS Report 6

Los datos que no puedo obtener son: 400234062240570 y [email protected]

Por favor, si me pudieran orientar. Se agradece cualquier apoyo recibido.

use XML::Simple;
use Data::Dumper;
# Abro un archivo de texto "xml.txt" en la ruta para insertar en una línea los datos de mi documento xml
# y los leo con el XMLin
open (xml, ">>F:/codigo/xml.txt") or die "$!\n";
        foreach my $a (@files){
                next if $a =~ /^\./;
                print "Archivos Cargados\n";
                print $a;
                print "\n";
 
                my $datos = XMLin("F:/codigo/xml/$a");
                .............
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2015-01-13 20:04 @878

Bueno, con la ayuda de Data::Dumper habrás visto que el contenido de las marcas que quieres obtener están dentro de una clave llamada precisamente 'content'.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use XML::Simple;
 
my $xml_ref = XMLin('code_38243.xml');
 
print join '|'
    ,$xml_ref->{'meta'}{'sender'}{'content'}
    ,$xml_ref->{'meta'}{'receiver'}{'content'}
    ,$xml_ref->{'meta'}{'time'}
    ,$xml_ref->{'meta'}{'protocol'}
    ,$xml_ref->{'meta'}{'type'}
    ;
 
print "\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **jomarq** » 2015-01-14 08:33 @397

Gracias, "explorer", tu ayuda me solucionó el inconveniente. Tema cerrado.

Foro - Perl en Español

Perl y XML

Perl y XML

Publicidad

Re: Perl y Xml

Re: Perl y Xml

Re: Perl y XML

Re: Perl y XML

¿Quién está conectado?