Foro - Perl en Español

por **lis** » 2014-03-20 17:18 @762

¡Hola, amigos del foro! Necesito de su ayuda una vez más.

Tengo diez archivos con el formato que está en el archivo adjunto. Bueno, es solo un pequeño extracto de uno de los diez archivos completos, ya que pesan mucho. Como referencia, en este archivo cada fila comienza con -22.29751. La columna 26 (para Perl, la 25) corresponde a la fecha que tiene este formato: AAAMMDDHHMMSS-888888.00000.

Lo que necesito es que al leer la hora de esta columna toda la fila se guarde en un archivo, es decir, que cada vez que encuentre, por ejemplo, la hora cero se guarde la fila completa en un archivo.

Hice el siguiente código pero es demasiado lento y no me respeta los espacios entre cada columna que en este tipo de archivos es muy importante.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
while ( $file = <*.txt> ) {
 
    my %hash = qw (01 31 02 28 03 31 04 30 05 31 06 30 07 31 08 31 09 30 10 31 11 30 12 31);
    foreach my $mes ( sort keys %hash ) {
        foreach my $dia ( '01' .. $hash{$mes} ) {
            foreach my $hora ( '00' .. '23' ) {
 
                $fecha   = '2013' . $mes . $dia . $hora . '0000-888888.00000';
                $archivo = 'obs:2013' . '-' . $mes . '-' . $dia . '_' . $hora;
 
                open( FILE,   "<$file" );
                open( OUTPUT, ">>$archivo" );
 
                while ( my $line = <FILE> ) {
                    chomp($line);
                    my @datos = split( " ", $line );
 
                    if ( $datos[25] == $fecha ) {
 
                        print OUTPUT "@datos\n";
                    }
 
                }
            }
        }
    }
 
    close(FILE);
    close(OUTPUT);
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Sintáxis: (archivo1.txt) [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

           -22.29751           -68.89821                CDLC Patio 777         SURFACE DATA FROM SFC station SOURCE    FM-12 SYNOP                                                                               2705.00000         6         0         0         0         0         F         F         F   -888888   -888888      20130101000000-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
  73800.00000      0   2705.00000      0          NaN      0          NaN      0      2.20000      0    345.90000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
-777777.00000      0-777777.00000      0      1.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
      1      0      0
           -22.29751           -68.89821                CDLC Patio 777         SURFACE DATA FROM SFC station SOURCE    FM-12 SYNOP                                                                               2705.00000         6         0         0         0         0         F         F         F   -888888   -888888      20130101010000-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
  73750.00000      0   2705.00000      0          NaN      0          NaN      0      2.20000      0    332.80000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
-777777.00000      0-777777.00000      0      1.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
      1      0      0
           -22.29751           -68.89821                CDLC Patio 777         SURFACE DATA FROM SFC station SOURCE    FM-12 SYNOP                                                                               2705.00000         6         0         0         0         0         F         F         F   -888888   -888888      20130101020000-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
  73700.00000      0   2705.00000      0          NaN      0          NaN      0      1.00000      0     13.40000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
-777777.00000      0-777777.00000      0      1.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
      1      0      0
           -22.29751           -68.89821                CDLC Patio 777         SURFACE DATA FROM SFC station SOURCE    FM-12 SYNOP                                                                               2705.00000         6         0         0         0         0         F         F         F   -888888   -888888      20130101030000-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
  73660.00000      0   2705.00000      0          NaN      0          NaN      0      0.70000      0     85.40000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
-777777.00000      0-777777.00000      0      1.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
      1      0      0
           -22.29751           -68.89821                CDLC Patio 777         SURFACE DATA FROM SFC station SOURCE    FM-12 SYNOP                                                                               2705.00000         6         0         0         0         0         F         F         F   -888888   -888888      20130101040000-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
  73620.00000      0   2705.00000      0          NaN      0          NaN      0      0.70000      0     80.80000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
-777777.00000      0-777777.00000      0      1.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
      1      0      0
           -22.29751           -68.89821                CDLC Patio 777         SURFACE DATA FROM SFC station SOURCE    FM-12 SYNOP                                                                               2705.00000         6         0         0         0         0         F         F         F   -888888   -888888      20130101050000-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
  73630.00000      0   2705.00000      0          NaN      0          NaN      0      0.50000      0     80.70000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
-777777.00000      0-777777.00000      0      1.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0-888888.00000      0
      1      0      0
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Ayúdenme, por favor, y muchas gracias

No necesitas hacer un triple bucle para buscar fechas... si sabemos el aspecto que tiene una fecha, pues la podemos encontrar y capturar con una expresión regular. La fecha capturada la usaremos para abrir el archivo correspondiente y grabar en él la $line.

(A mi me sale que la fecha está en la columna 24, no en la 25)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
while (my $file = <*.txt>) {
 
    open my $FILE, '<', $file;
 
    while (my $line = <$FILE>) {
        my @columns = split " ", $line;
 
        # Si existe una columna 24, y coincide con una fecha, la tomamos
        if (defined $columns[24]  and  $columns[24] =~ /^(\d{4})(\d{2})(\d{2})(\d{2})0000-888888[.]00000$/) {
            open my $OUTPUT, '>>', "obs:$1-$2-${3}_$4";
            print   $OUTPUT $line;
            close   $OUTPUT;
        }
    }
 
    close $FILE;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Esta es otra versión, un poco más rápida

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use autodie;
 
my %fh;                                                         # aquí guardaremos los gestores de archivo
 
while (my $archivo = <*.txt>) {
 
    open my $ARCHIVO, '<', $archivo;
 
    while (my $linea = <$ARCHIVO>) {
        my @columnas = split " ", $linea;
 
        # Si existe una columna 24, y coincide con una fecha, la tomamos
        if (defined $columnas[24]  and  $columnas[24] =~ /^(\d{4})(\d{2})(\d{2})(\d{2})0000-888888[.]00000$/) {
            my $fecha = "$1$2$3$4";
 
            if (not  $fh{$fecha}) {                             # si el archivo no estaba abierto
                open $fh{$fecha}, '>>', "obs:$1-$2-${3}_$4";    # lo abrimos ahora
            }
 
            print    $fh{$fecha}  $linea;                       # guardamos la línea
        }
    }
 
    close $ARCHIVO;
}
 
for (values %fh) {                                              # cerramos todos los archivos abiertos antes
    close $_;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **lis** » 2014-03-25 09:19 @429

Hola, explorer, muchas gracias por la ayuda. Solo tengo una pregunta: ¿al guardarse la línea en el archivo ésta podría mantener los retornos de carro que hay al final de las columnas 38, 54 y 66? Gracias, gracias.

por **explorer** » 2014-03-25 11:01 @501

El archivo es leído por líneas enteras y se escribe por líneas enteras. En ningún momento se le quitan caracteres de fin de línea, o se les pone nuevos.

por **lis** » 2014-03-25 13:23 @599

Ok, muchas gracias por la respuesta.

por **lis** » 2014-03-28 08:45 @406

Consulta. Una vez que se lee el archivo y encuentra la columna correspondiente a la fecha, ¿cómo se pueden copiar las tres filas siguientes (en total cuatro filas incluidas la de la fecha) en el nuevo archivo? Gracias de antemano.

por **explorer** » 2014-03-28 14:49 @659

Entre las líneas 17 y 18 (del primer código, por ejemplo) añades esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

            my $linea_extra;
            for (1..3) {
                $linea_extra = <$FILE>;
                print $OUTPUT $linea_extra;
              }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **lis** » 2014-04-03 09:27 @435

Muchas gracias, explorer, funciona excelente.

Foro - Perl en Español

Guardar cada hora en un achivo

Guardar cada hora en un achivo

Publicidad

Re: Guardar cada hora en un achivo

Re: Guardar cada hora en un achivo

Re: Guardar cada hora en un achivo

Re: Guardar cada hora en un achivo

Re: Guardar cada hora en un achivo

Re: Guardar cada hora en un achivo

Re: Guardar cada hora en un achivo

¿Quién está conectado?