Foro - Perl en Español

por **seguridadenmimail** » 2011-12-13 14:47 @657

Estimados,
Estoy teniendo problemas con un parser.

Tengo el siguiente XML:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="utf-8"?>
<gpx>
  <wpt lat="" lon="">
    <ele>0</ele>
    <time>1-01-01T00:00:0.0Z</time>
    <geoidheight>0</geoidheight>
    <name> [00:00:00:00:00:00]</name>
    <cmt>0</cmt>
    <desc>
[00:00:00:00:00:00]
RSSI: -46 dB
Quality: 100%
Channel 1
Speed (kph): 0
1-01-01T00:00:0.0Z</desc>
    <fix></fix>
    <sat>0</sat>
    <hdop>0</hdop>
    <vdop>0</vdop>
    <pdop>0</pdop>
    <extensions>
      <MAC>00:00:00:00:00:00</MAC>
      <SSID>PRUEBA</SSID>
      <RSSI>-46</RSSI>
      <ChannelID>1</ChannelID>
      <privacy>RSNA-CCMP</privacy>
      <signalQuality>100</signalQuality>
      <networkType>Infrastructure</networkType>
      <rates>1/2/5,5/6/9/11/12/18/24/36/48/54</rates>
    </extensions>
  </wpt>
 </gpx>
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quiero obtener como resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

- SSID

- MAC

- RSSI

- ChannelID

- networkTypeColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Mi script es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use XML::Simple;
use Data::Dumper;
 
my $info = XMLin("kk.xml", KeyAttr => 1);
print Dumper($info);
 
for my $ap ( @{$info->{extensions}} ) {
        print "$ap->{SSID} => $ap->{MAC} ($ap->{RSSI})\n";
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

No me funciona :S

#!/usr/bin/perl
use strict;
use warnings;
 
use XML::Simple;
use Data::Dumper;
 
my $info = XMLin("code_28964.xml", KeyAttr => 1);
print Dumper($info);
 
my $extensions_ref = $info->{wpt}->{extensions};
 
for my $ap ( keys %{$extensions_ref} ) {
    print "$ap => $extensions_ref->{$ap}\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

networkType => Infrastructure

rates => 1/2/5,5/6/9/11/12/18/24/36/48/54

SSID => PRUEBA

MAC => 00:00:00:00:00:00

signalQuality => 100

RSSI => -46

ChannelID => 1

privacy => RSNA-CCMPColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2011-12-13 18:16 @803

En mi caso sigue mostrándome todos los datos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'wpt' => [

                   {

                     'vdop' => '0',

                     'ele' => '0',

                     'fix' => {},

                     'time' => '1-01-01T00:00:0.0Z',

                     'lat' => '',

                     'name' => ' [00:00:00:00:00]',

                     'hdop' => '0',

                     'cmt' => '0',

                     'geoidheight' => '0',

                     'extensions' => {

                                     'networkType' => 'Infrastructure',

                                     'rates' => '1/2/5,5/6/9/11/12/18/24/36/48/54',

                                     'SSID' => {PRUEBA},

                                     'MAC' => '00:00:00:00:00',

                                     'signalQuality' => '100',

                                     'RSSI' => '-46',

                                     'ChannelID' => '1',

                                     'privacy' => 'RSNA-CCMP'

                                   },

                     'pdop' => '0',

                     'desc' => '
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Por otro lado, ¿se puede hacer print() por separado? Ya que en un futuro voy a tratar de enviar esa información a un XLS...

por **explorer** » 2011-12-13 19:10 @840

Sí, claro que se puede...

por **explorer** » 2011-12-13 19:13 @842

Hummm... interesante... tu volcado de datos es diferente del mío:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'wpt' => {

                   'vdop' => '0',

                   'ele' => '0',

                   'fix' => {},

                   'time' => '1-01-01T00:00:0.0Z',

                   'lat' => '',

                   'name' => ' [00:00:00:00:00:00]',

                   'hdop' => '0',

                   'cmt' => '0',

                   'geoidheight' => '0',

                   'extensions' => {

                                   'networkType' => 'Infrastructure',

                                   'rates' => '1/2/5,5/6/9/11/12/18/24/36/48/54',

                                   'SSID' => 'PRUEBA',

                                   'MAC' => '00:00:00:00:00:00',

                                   'signalQuality' => '100',

                                   'RSSI' => '-46',

                                   'ChannelID' => '1',

                                   'privacy' => 'RSNA-CCMP'

                                 },

                   'pdop' => '0',

                   'desc' => '

[00:00:00:00:00:00]

RSSI: -46 dB

Quality: 100%

Channel 1

Speed (kph): 0

1-01-01T00:00:0.0Z',

                   'sat' => '0',

                   'lon' => ''

                 }

        };Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Eso es porque no coinciden las versiones de XML::Simple (supongo).
En mi caso yo estoy con la v2.18:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

explorer@casa:~/Documentos/Desarrollo> perl -MXML::Simple -E 'say $XML::Simple::VERSION'
2.18
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-12-13 19:14 @843

Para tu organización de datos, sería suficiente con modificar esta línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $extensions_ref = $info->{wpt}->[0]->{extensions};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2011-12-13 19:20 @847

Hice el cambio y me da el mismo resultado :S

Mi versión es la misma que la tuya, estoy corriendo Perl en Windows Seven.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

C:\>perl -MXML::Simple -E "say $XML::Simple::VERSION"
2.18
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es como si hace un DUMP de todo, sin realizar el "parseo".

por **explorer** » 2011-12-13 20:21 @889

La interpretación (parseo) es correcta.

Dumper() muestra lo que ha leído XML::Simple.

La diferencia entre tu salida y la mía es que en la tuya, los contenidos de 'wpt' están en un array anónimo (el corchete '[' que aparece en el volcado), y por eso puse ->[0] en la solución para tu salida.

Prueba con ese cambio, debería salir...

por **seguridadenmimail** » 2011-12-14 05:16 @261

xml:

Sintáxis: [ Descargar ] [ Ocultar ]

Using xml Syntax Highlighting

<?xml version="1.0" encoding="utf-8"?>
<gpx>
  <wpt lat="" lon="">
    <ele>0</ele>
    <time>1-01-01T00:00:0.0Z</time>
    <geoidheight>0</geoidheight>
    <name>Mer2 [00:12:0E:03:02:01]</name>
    <cmt>0</cmt>
    <desc>Mer2
[00:12:0E:03:02:01]
RSSI: -81 dB
Quality: 65%
Channel 11
Speed (kph): 0
1-01-01T00:00:0.0Z</desc>
    <fix></fix>
    <sat>0</sat>
    <hdop>0</hdop>
    <vdop>0</vdop>
    <pdop>0</pdop>
    <extensions>
      <MAC>00:12:0E:03:02:01</MAC>
      <SSID>Mer2</SSID>
      <RSSI>-81</RSSI>
      <ChannelID>11</ChannelID>
      <privacy>None</privacy>
      <signalQuality>65</signalQuality>
      <networkType>Infrastructure</networkType>
      <rates>1/2/5,5/6/9/11/12/18/24/36/48/54</rates>
    </extensions>
  </wpt>
  <wpt lat="" lon="">
    <ele>0</ele>
    <time>1-01-01T00:00:0.0Z</time>
    <geoidheight>0</geoidheight>
    <name>chapo1[1C:BD:00:00:00:00]</name>
    <cmt>0</cmt>
    <desc>chapo1
[1C:BD:00:00:00:00]
RSSI: -87 dB
Quality: 21%
Channel 11
Speed (kph): 0
1-01-01T00:00:0.0Z</desc>
    <fix></fix>
    <sat>0</sat>
    <hdop>0</hdop>
    <vdop>0</vdop>
    <pdop>0</pdop>
    <extensions>
      <MAC>1C:BD:00:00:00:00</MAC>
      <SSID>chapo1</SSID>
      <RSSI>-87</RSSI>
      <ChannelID>11</ChannelID>
      <privacy>RSNA-CCMP</privacy>
      <signalQuality>21</signalQuality>
      <networkType>Infrastructure</networkType>
      <rates>1/2/5,5/6/9/11/12/15/18/24/30/36/45/48/54/60/90/120/135/150</rates>
    </extensions>
  </wpt>
  <wpt lat="" lon="">
    <ele>0</ele>
    <time>1-01-01T00:00:0.0Z</time>
    <geoidheight>0</geoidheight>
    <name>Mer1 [00:12:00:00:00:00]</name>
    <cmt>0</cmt>
    <desc>Mer1
[00:12:00:00:00:00]
RSSI: -61 dB
Quality: 65%
Channel 11
Speed (kph): 0
1-01-01T00:00:0.0Z</desc>
    <fix></fix>
    <sat>0</sat>
    <hdop>0</hdop>
    <vdop>0</vdop>
    <pdop>0</pdop>
    <extensions>
      <MAC>00:12:00:00:00:00</MAC>
      <SSID>Mer1</SSID>
      <RSSI>-61</RSSI>
      <ChannelID>11</ChannelID>
      <privacy>None</privacy>
      <signalQuality>65</signalQuality>
      <networkType>Infrastructure</networkType>
      <rates>1/2/5,5/6/9/11/12/18/24/36/48/54</rates>
    </extensions>
  </wpt>
</gpx>
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
use XML::Simple;
use Data::Dumper;
 
my $info = XMLin("1.xml", KeyAttr => 1);
print Dumper($info);
 
my $extensions_ref = $info->{'wpt'}[0]->{'extensions'};
 
for my $ap ( keys %{$extensions_ref} ) {
    print "$ap => $extensions_ref->{$ap}\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

output:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$VAR1 = {
          'wpt' => [
                   {
                     'vdop' => '0',
                     'ele' => '0',
                     'fix' => {},
                     'time' => '1-01-01T00:00:0.0Z',
                     'lat' => '',
                     'name' => 'Mer2 [00:12:0E:03:02:01]',
                     'hdop' => '0',
                     'cmt' => '0',
                     'geoidheight' => '0',
                     'extensions' => {
                                     'networkType' => 'Infrastructure',
                                     'rates' => '1/2/5,5/6/9/11/12/18/24/36/48/54',
                                     'SSID' => 'Mer2',
                                     'MAC' => '00:12:0E:03:02:01',
                                     'signalQuality' => '65',
                                     'RSSI' => '-81',
                                     'ChannelID' => '11',
                                     'privacy' => 'None'
                                   },
                     'pdop' => '0',
                     'desc' => 'Mer2
[00:12:0E:03:02:01]
RSSI: -81 dB
Quality: 65%
Channel 11
Speed (kph): 0
1-01-01T00:00:0.0Z',
                     'sat' => '0',
                     'lon' => ''
                   },
                   {
                     'vdop' => '0',
                     'ele' => '0',
                     'fix' => {},
                     'time' => '1-01-01T00:00:0.0Z',
                     'lat' => '',
                     'name' => 'chapo1[1C:BD:00:00:00:00]',
                     'hdop' => '0',
                     'cmt' => '0',
                     'geoidheight' => '0',
                     'extensions' => {
                                     'networkType' => 'Infrastructure',
                                     'rates' => '1/2/5,5/6/9/11/12/15/18/24/30/36/45/48/54/60/90/120/135/150',
                                     'SSID' => 'chapo1',
                                     'MAC' => '1C:BD:00:00:00:00',
                                     'signalQuality' => '21',
                                     'RSSI' => '-87',
                                     'ChannelID' => '11',
                                     'privacy' => 'RSNA-CCMP'
                                   },
                     'pdop' => '0',
                     'desc' => 'chapo1
[1C:BD:00:00:00:00]
RSSI: -87 dB
Quality: 21%
Channel 11
Speed (kph): 0
1-01-01T00:00:0.0Z',
                     'sat' => '0',
                     'lon' => ''
                   },
                   {
                     'vdop' => '0',
                     'ele' => '0',
                     'fix' => {},
                     'time' => '1-01-01T00:00:0.0Z',
                     'lat' => '',
                     'name' => 'Mer1 [00:12:00:00:00:00]',
                     'hdop' => '0',
                     'cmt' => '0',
                     'geoidheight' => '0',
                     'extensions' => {
                                     'networkType' => 'Infrastructure',
                                     'rates' => '1/2/5,5/6/9/11/12/18/24/36/48/54',
                                     'SSID' => 'Mer1',
                                     'MAC' => '00:12:00:00:00:00',
                                     'signalQuality' => '65',
                                     'RSSI' => '-61',
                                     'ChannelID' => '11',
                                     'privacy' => 'None'
                                   },
                     'pdop' => '0',
                     'desc' => 'Mer1
[00:12:00:00:00:00]
RSSI: -61 dB
Quality: 65%
Channel 11
Speed (kph): 0
1-01-01T00:00:0.0Z',
                     'sat' => '0',
                     'lon' => ''
                   }
                 ]
        };
networkType => Infrastructure
rates => 1/2/5,5/6/9/11/12/18/24/36/48/54
SSID => Mer2
MAC => 00:12:0E:03:02:01
signalQuality => 65
RSSI => -81
ChannelID => 11
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-12-14 07:09 @339

¡Ah, claro!

Como no habías puesto el XML entero, no sabía el porqué XML::Simple había convertido en array los contenidos de 'wpt'. Viéndolo completo, nos damos cuenta de que tiene varias entradas.

Bueno, pues entonces sí, haciendo variar el índice dentro de los corchetes, de la línea 11, accedes a todos los contenidos.

Ya solo te queda quitar o comentar la línea 9 para que no te haga el volcado de datos, y listo.

P.D. Estamos en el foro Intermedio.

Foro - Perl en Español

Consulta de XML::Simple

Consulta de XML::Simple

Publicidad

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

Re: Consulta de XML::Simple

¿Quién está conectado?