Foro - Perl en Español

por **lis** » 2014-05-20 09:53 @453

Estimados, tengo archivos en que las horas van de 0 a 23 (columna 4), pero de repente aparecen archivos en que las horas van de 1 a 24, por lo que hice el siguiente código que corrige las horas para que vayan de 0 a 23:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use diagnostics;
 
while ( my $data = <OBS_*> ) {
 
    open IN, "<$data";
    my $nm = substr( $data, 4,, -4 );
    my $out = 'obs_' . $nm . '.txt';
 
    open( ON, ">$out" );
 
    while (<IN>) {
        chomp;
        my $line_number = 24;
        my $line        = $_;
        my @elements    = split( " ", $line );
 
        if ( $line_number == 24 ) {
            $elements[3] = $elements[3] - 1;
            my $header = join( " ", @elements );
            print ON "$header\n";
        }
    }
}
close IN;
close ON;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Mi pregunta es si en vez de crear el archivo $out donde se guardan los cambios, hay alguna manera de sobreescribir el archivo $data con estos cambios. Les agradezco su ayuda.

creo que sobra una coma en la línea 8
los close() están fuera de los bucles, cuando en realidad deberían estar al mismo nivel que los open()
en la línea 19 compruebas si $line_number es igual a 24, lo cual siempre es cierto porque así se lo dices en la línea 15. O sea, que las sentencias dentro del if() siempre se ejecutan

por **lis** » 2014-05-27 15:55 @705

Hola, amigos del foro. He modificado el código anterior sin éxito. Lo que me gustaría que hiciera el código es que si al leer la columna 3 (la cual corresponde a la hora) y si encuentra el número 24, a toda la columna le reste 1. Lo que consigo con esté código es identificar si existe el 24 pero solo le resta un 1 a ese 24 y no ha toda la columna. Les pido que me ayuden por favor. Sé que puede resultar algo fácil de hacer pero por más que lo intento no lo consigo. Muchas gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open (IN,"<$obs");
my $nm = substr( $obs, 4, -4 );
 
my $out = 'OBS_' . $nm . '.txt';
open (ON,">$out");
 
while(<IN>){
chomp;
@datos= split(" ",$_);
$string=24;
 
if ($datos[3] =~ /$string/) {
$datos[3] -= 1;
}
print ON "@datos\n";
}
close IN;
}}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2014-05-27 18:03 @793

Se puede hacer de muchas maneras. Yo he optado por la de leer todo el archivo a memoria, en un array como indicaba en el mensaje anterior:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.14;
use autodie;
use File::Slurp;
 
my @archivo_lineas = read_file('kk.txt');               # leemos el archivo
 
my $hay_24;                                             # bandera
 
for (@archivo_lineas) {                                 # para todas las líneas
 
    my @columnas = split;
 
    if ($columnas[3] == 24) {                           # si hemos encontrado un '24'
        $hay_24 = 1;                                    # lo marcamos
        last;                                           # y salimos del bucle (no hace falta mirar más)
    }
}
 
if ($hay_24) {                                          # si hay 24...
 
    open my $ON, '>', 'salida.txt';                     # abrimos archivo de salida
 
    for (@archivo_lineas) {                             # para todas las líneas
 
        my @columnas = split;                           # dividimos
        $columnas[3]--;                                 # decrementamos la cuarta columna
        print $ON join(' ', @columnas), "\n";           # reconstruímos la línea y la sacamos
    }
 
    close $ON;                                          # cerramos
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Sobreescribir archivo

Sobreescribir archivo

Publicidad

Re: Sobreescribir archivo

Re: Sobreescribir archivo

Re: Sobreescribir archivo

¿Quién está conectado?