Foro - Perl en Español

por **seguridadenmimail** » 2011-12-14 07:51 @368

Perfecto. Perdón, pero ¿cómo tendría que hacer para listar todos los "APs" y hacer los print() de cada valor por separado?

#!/usr/bin/perl
use strict;
use warnings;
 
use XML::Simple;
 
# Leemos el xml
# KeyAttr => 1 : para evitar que convierta la entrada <name> en clave principal
# ForceArray => ['wpt'] : indicamos que esa marca debe ser *siempre* un array
#my $info = XMLin("code_28980.txt", KeyAttr => 1, ForceArray => ['wpt']);
my $info = XMLin("code_28964.xml", KeyAttr => 1, ForceArray => ['wpt']);
 
#use Data::Dumper;
#print Dumper $info;
 
# Una forma
# Cuántos wpt tenemos
my $n_wpt = scalar @{ $info->{wpt} } - 1;
 
for my $i (0 .. $n_wpt) {
 
    my $extensions_ref = $info->{wpt}->[$i]->{extensions};
 
    for my $ap ( keys %{$extensions_ref} ) {
        print "$ap => $extensions_ref->{$ap}\n";
    }
 
    print '=' x 50, "\n";
}
 
print '-' x 70, "\n";
 
# Otra forma
# Accediendo a los valores wpt directamente
for my $wpt_ref ( @{ $info->{wpt} } ) {
    my $extensions_ref = $wpt_ref->{extensions};
 
    for my $ap ( keys %{$extensions_ref} ) {
        print "$ap => $extensions_ref->{$ap}\n";
    }
 
    print '=' x 50, "\n";
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2011-12-14 08:49 @409

¡Muchas Gracias! ¡Funciona perfecto!

Dejo el script completo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
BEGIN {
 
    eval "use XML::Simple";
 
    if ( $@ ) {
 
        warn  "Error al cargar el modulo: XML::Simple\n"
 
        . "instalar modulo:\n"       
 
        . "\t\tcpan\n"
 
        . "\t\tcpan> install XML::Simple\n";
 
exit ();
 
 }
 
 }
 
use XML::Simple;
 
if ( @ARGV != 1 ) {
    die "\nUso: $0 <reporte.gpx>\n";
 
}
 
my $file = $ARGV[0];
chomp $file;
 
# Leemos el xml
# KeyAttr => 1 : para evitar que convierta la entrada <name> en clave principal
# ForceArray => ['wpt'] : indicamos que esa marca debe ser *siempre* un array
my $info = XMLin("$file", KeyAttr => 1, ForceArray => ['wpt']);
 
# Una forma
# Cuántos wpt tenemos
my $n_wpt = scalar @{ $info->{wpt} } - 1;
 
for my $i (0 .. $n_wpt) {
 
    my $extensions_ref = $info->{wpt}->[$i]->{extensions};
 
    for my $ap ( keys %{$extensions_ref} ) {
        print "$ap => $extensions_ref->{$ap}\n";
    }
 
    print '=' x 50, "\n";
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ahora voy a intentar llevar la información obtenida a un XLS.

por **seguridadenmimail** » 2011-12-14 09:12 @425

explorer, ¿es muy complicado separar los print()? Así, con esto, puedo enviar cada dato a una columna del XLS. Así como está, obtengo todos los datos juntos.

por **explorer** » 2011-12-14 09:23 @433

Pues... no...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    print "networkType   => $extensions_ref->{networkType}\n";
    print "rates         => $extensions_ref->{rates}\n";
    print "SSID          => $extensions_ref->{SSID}\n";
    print "MAC           => $extensions_ref->{MAC}\n";
    print "signalQuality => $extensions_ref->{signalQuality}\n";
    print "RSSI          => $extensions_ref->{RSSI}\n";
    print "ChannelID     => $extensions_ref->{ChannelID}\n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2011-12-14 10:20 @472

¡Perfecto!
Muchas Gracias.
Siempre se aprende aquí.

por **seguridadenmimail** » 2011-12-14 13:24 @600

Agregué otro print():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Privacy       => $extensions_ref->{privacy}\n";
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que este dato, muchas veces tiene 2 valores separados con "-". Por ejemplo:

RSNA-CCMP

Mi idea es ver cuando este parámetro ("privacy") tenga un valor como el nombrado, me lo separe en dos, y así puedo imprimir los valores por separado.

Traté de usar split() pero no logro lo que necesito.

por **explorer** » 2011-12-14 19:08 @839

Sin ver el código, es difícil decirte dónde puede estar el problema...

Sería algo así (no probado):

my @valores = split /-/, $extensions_ref->{privacy};

Foro - Perl en Español

Consulta de XML::Simple

Re: 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

¿Quién está conectado?