Foro - Perl en Español

por **enric73** » 2013-08-15 05:29 @270

Una vez más, muchas gracias, explorer.

Voy a añadir también el campo de weather. Haré lo mismo: que si no hay -Ra, o -TSRA, -SN, FOG, pues me ponga 'SIN METEORO', o algo similar, gracias...

Saludos

my $Meteor  = $metar->weather();
if (!$Meteor) {
$Meteor = 'NO';
        }
 
 
my $viento = $metar->wind() // ${$metar->tokens}[2];    # esto... no es del todo bueno hacerlo así
     
say
join " ",
$metar->SITE(),
$metar->date_time(),
$viento,
$Meteor,
#$metar->weather(),
$cielo,
$metar->temp_dew(),
'Q' . $metar->pressure(),
;
     
    $m = $metar;                        # lo guardamos en el mismo array, para luego hacer el Dumper
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

y también aparece comentado la prueba directa de metar->weather(), pero el resultado que me da es el siguiente, para estos metars:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

LEBL 151330Z 14008KT 9999 FEW026 BKN030 28/18 Q1018 NOSIG

LEMD 151330Z 19004KT 9999 SCT065 35/10 Q1018 NOSIG

LEGE 151330Z 19008KT 130V260 9999 FEW045 29/16 Q1018

LEPA 151330Z 23012KT 9999 FEW030 30/18 Q1018 NOSIG

EHGG 151325Z AUTO 22008KT 200V260 6000 -DZ FEW009 BKN011 BKN015CB 17/16 Q1019

  TEMPO 6000 RADZ SCT012 BKN018

EICK 151330Z 22020KT 9999 -RA BKN005 BKN012 17/17 Q1012 NOSIG

EIDW 151330Z 20010KT 8000 -RA FEW012 BKN025 BKN050 18/17 Q1011 NOSIG

EINN 151330Z 18012KT 3000 -RADZ OVC007 18/18 Q1010 NOSIGColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

[enric@localhost ~]$ ./metarexplorer.pl 

LEBL 151330Z 14008KT ARRAY(0x85a14f8) FEW026-BKN030 28/18 Q1018

LEMD 151330Z 19004KT ARRAY(0x877b688) SCT065 35/10 Q1018

LEGE 151330Z 19008KT ARRAY(0x87cc0d0) FEW045 29/16 Q1018

LEPA 151330Z 23012KT ARRAY(0x87cc540) FEW030 30/18 Q1018

EHGG 151325Z 22008KT ARRAY(0x87cc9b0) FEW009-BKN011-BKN015CB 17/16 Q1019

TEMPO  6000 ARRAY(0x87ced00) NSC  Q

EICK 151330Z 22020KT ARRAY(0x87cf220) BKN005-BKN012 17/17 Q1012

EIDW 151330Z 20010KT ARRAY(0x87cf6f0) FEW012-BKN025-BKN050 18/17 Q1011

EINN 151330Z 18012KT ARRAY(0x87cfbf0) OVC007 18/18 Q1010Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Aparece por pantalla en vez del meteoro (weather) cositas como ARRAY(0x85a14f8)... ¿en qué me equivoco?

Gracias

por **explorer** » 2013-08-15 13:20 @597

Lo pone en el manual. Dice que weather() devuelve un array. Mejor dicho, una referencia a un array, así que estamos en la misma situación que tokens().

Este es el cambio que debes hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $Meteor = join '-', @{$metar->weather());
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2013-08-16 05:33 @273

Gracias, explorer, también he visto que el weather_log devuelve una referencia a un array

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

WEATHER

    Current weather (array)

WEATHER_LOG

    Current weather log (array)

SKY

    Current cloud cover (array)Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-08-16 11:07 @505

Yo lo que hice fue el Dumper, y así vi los campos que me interesaban. Y si eran escalares o arrays.

por **enric73** » 2013-09-25 05:06 @254

Hola.

En el código de filtrar METAR, después de say() y join(), querría poner un protocolo de seguridad, y que solamente salgan por pantalla o se guarden en un archivo de salida, los metar que tengan 7 campos separados por un espacio... los demás no los quiero... he probado de añadir el siguiente código pero no me funciona ...

my @fields = split (" ",$m);
my $numfields = scalar(@fields);
print $line."\n" if ($numfields eq 7);

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

say
    join " ",
    $metar->SITE(),
    $metar->date_time(),
    $viento,
    $Meteor,
 
    #$metar->weather(),
    $cielo, $metar->temp_dew(), 'Q' . $metar->pressure(),
    ;
    $m = $metar;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cómo debo introducirlo en el código para que cuando el programa llegue a say(), cuente los campos y solamente aparezca en pantalla los metar con 7 campos...? Gracias.

por **explorer** » 2013-09-25 05:28 @269

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @fields = (
    $metar->SITE(),
    $metar->date_time(),
    $viento,
    $Meteor,
    #$metar->weather(),
    $cielo, $metar->temp_dew(), 'Q' . $metar->pressure(),
);
 
say join " ", @fields if @fields == 7;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2013-09-25 07:58 @373

Gracias,

le he añadido $outfile para salvarlo a un archivo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

say $outfile join " ", @fields if @fields == 7;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Filtrar archivos METAR

Re: Filtrar archivos METAR

Publicidad

Re: Filtrar archivos METAR

Re: Filtrar archivos METAR

Re: Filtrar archivos METAR

Re: Filtrar archivos METAR

Re: Filtrar archivos METAR

Re: Filtrar archivos METAR

Re: Filtrar archivos METAR

¿Quién está conectado?