Foro - Perl en Español

por **lis** » 2014-04-23 16:25 @725

¡Hola, perleros!

Ayúdenme, por favor. Tengo un archivo.txt que contiene las siguientes columnas: año, mes, día, hora, velocidad, y dirección de viento. A continuación muestro un extracto del archivo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

1 1 0 1.0 76

1 1 1 1.0 26

1 1 2 0.7 37

1 1 3 0.3 76

1 1 4 0.6 59

1 1 5 0.6 65

1 1 6 0.5 81

1 1 7 0.6 58

1 1 8 0.5 38

1 1 9 1.2 56

1 1 10 1.0 48

1 1 11 0.9 33

1 1 12 1.3 26

1 1 13 1.3 7

1 1 14 1.2 221

. . . . . .

. . . . . .

. . . . . .

12 31 15 2.2 250

12 31 14 nan nan

12 31 15 nan nan

12 31 16 nan nan

12 31 17 nan nan

12 31 18 nan nan

12 31 19 nan nan

12 31 20 nan nan

12 31 21 nan nan

12 31 22 nan nan

12 31 23 nan nanColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Los "nan" significa que no hay datos.

Lo que quiero es imprimir la primera y última fecha del archivo, es decir:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

01 01 00 

12 31 23Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

pero si la columna 5 tiene un "nan", imprimir la fecha antes del "nan":

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

01 01 00

12 31 15Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Adjunto mi código.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w 
use warnings;
use strict;
 
open IN, "<datos.txt";
 
my @array = <IN>;
 
next if $array[5] eq "nan";
 
close IN;
 
my $first = shift (@array);
my $last = pop (@array);
 
print "first: $first";
print "last: $last";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Me imprime la primera y última fecha, pero no toma en cuenta si la columna 5 tiene "nan". Además quiero que se impriman solo las primera cuatro columnas (año, mes, día y hora).

Gracias por su ayuda

#!/usr/bin/perl
use warnings;
use strict;
 
open IN, "<datos.txt";
 
my @datos = grep { (split " ")[5] ne 'nan' } <IN>;
 
close IN;
 
 
if (@datos) {                           # si hay datos
 
    my $first = $datos[0];              # primera línea
    my $last  = $datos[-1];             # última línea
 
    for ($first, $last) {
        my @columnas = split " ";
 
        print join(" ", @columnas[0..3]), "\n";         # solo las 4 primeras columas
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Otra forma de hacerlo, esta vez con un bucle:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use warnings;
use strict;
 
open IN, '<', 'datos.txt';
 
my @datos;
 
while (<IN>) {                          # para todas las líneas del archivo
 
    my @columnas = split " ";           # separar por los espacios
 
    next if $columnas[5] eq 'nan';      # si es 'nan', no nos interesa
    
    push @datos, $_;                    # guardamos la línea
}
 
close IN;
 
 
if (@datos) {                           # si hay datos
 
    my $first = $datos[0];              # primera línea
    my $last  = $datos[-1];             # última línea
 
    for ($first, $last) {
        my @columnas = split " ";
 
        print join(" ", @columnas[0..3]), "\n";         # solo las 4 primeras columas
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **lis** » 2014-04-24 13:39 @610

Muchas gracias, explorer, funciona excelente.

Foro - Perl en Español

Imprimir primer y último elemento de una matriz

Imprimir primer y último elemento de una matriz

Publicidad

Re: Imprimir primer y último elemento de una matriz

Re: Imprimir primer y último elemento de una matriz

¿Quién está conectado?