Foro - Perl en Español

por **lis** » 2009-08-05 14:56 @664

Hola amigos del foro: tengo archivos $altura.txt que tiene lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

20080119   1000    0.0  24.80  21.19

20080120   1000    0.0  25.23  20.95

20080121   1000    0.0  24.76  21.31

20080122   1000    0.0  24.85  20.83

20080123   1000    0.0  24.69  19.92

20080124   1000    0.0  24.23  20.79

20080125   1000   20.2  23.46  21.18

20080126   1000   20.0  23.55  20.90

20080127   1000   16.4  24.02  19.97

20080128   1000   19.4  23.35  19.03

20080130   1000   18.4  23.04  19.54

20080131   1000   18.4  22.66  19.38

20080201   1000   17.8  22.35  20.12

20080203   1000   17.8  22.81  19.94

20080204   1000   18.8  23.44  19.82

20080205   1000   18.2  23.79  19.57

20080206   1000   18.0  23.77  18.75

20080207   1000   16.4  23.71  19.67

20080208   1000   16.8  23.97  19.65

20080209   1000    0.0  23.24  20.19

20080212   1000    0.0  24.87  20.55

20080214   1000   16.6  24.55  20.77Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En la tercera columna a veces salen el numero 0.0, y es aquí donde necesito su ayuda, cada vez que en columna 3 salga 0.0 la fila completa se elimine y se guarde en un nuevo archivo, e hice el siguiente script en donde no hace nada.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
 
for my $fichero (</home/visita/Desktop/DATOS/2008_resultados_sge/2008/tmp/*.txt>) {
    #my $fecha = substr $fichero, 0, 8;
 
for my $altura ( 1000, 925, 850, 700, 500, 400, 300, 250, 200, 150, 100 ){
 
$archivo=$altura . '.txt' ;
 
print "Procesando fichero del día $archivo...\n";
 
    my $fichero  = $altura . '.txt';
    my $fichero_salida = $altura . '_.txt';
 
 
open (DATOS, "<$fichero");
open (ARCHIVOS, ">$fichero_salida");
 
while($linea = <DATOS>){
    chop($linea);
    @datos = split(" ", $linea);
 
        if ($datos[2] =~ 0.0) {
system "(mv @datos $fichero_salida)";}
 
    #print ARCHIVOS "@datos\n";
}
}}
close (ARCHIVOS);
close (DATOS);
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

De antemano les agradezco su ayuda, y muchas gracias a todos.

#!/usr/bin/perl
use strict;
 
my @ficheros = ("f_1.txt", "f_2.txt");
my $salida   = "salida.txt";
 
foreach my $fichero ( @ficheros ) {
    open ENTRADA, $fichero or die "Error con $fichero: $!\n";
    open SALIDA, ">>$salida" or die "Error con $salida: $!\n";
    while ( my $linea = <ENTRADA> ) {
        chomp $linea;
        if ( $linea =~ /^\d+\s+0.0\s+*$/ ) {
            print SALIDA "$linea\n";
        }
    }
    close SALIDA;
    close ENTRADA;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

PD: No he probado el código :roll:

por **lis** » 2009-08-06 18:30 @813

Muchas gracias por tu ayuda creating021, tu script me ayudó a identificar las filas que contienen "0.0" y guardarlas en un nuevo archivo. Pero necesito que me ayudes en otra cosa: si esas mismas líneas que identifico las borré del archivo original o si en un nuevo archivo se guarden todas las columnas que no contienen "0.0". Te agradecería un montón.

por **creating021** » 2009-08-06 22:07 @963

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ( $linea !~ /^\d+\s+0.0\s+*$/ ) {
    print SALIDA "$linea\n";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Las expresiones regulares son una herramienta muy útil, al menos aprende lo básico de éstas.
Aquí tienes una tutoría básica de expresiones regulares que explica el código que he puesto

por **explorer** » 2009-08-07 13:48 @617

Otra solución, un poco más sencilla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl-ane'print if $F[2] ne "0.0"' altura.txt > altura_sin_ceros.txtColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aquí, es ejecutada en la misma línea de comandos, pero es fácil de llevar a un programa.

¿Alguien se atreve?

por **netsoul** » 2009-08-08 04:10 @215

Como Perl tiene miles de formas de hacer, aquí va otro más:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl-pe's/.* 0\.0.*\n$//' altura.txt > altura_sin_ceros.txtColoreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2009-08-08 21:34 @940

Esa solución no vale, netsoul: puede fallar si aparece un '0.0' en cualquier columna.

:wink:

por **netsoul** » 2009-08-09 01:11 @091

Jeje... Ya sabía que no ibas a tardar en responder. A ver...

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl-pe's/\d+\s+\d+\s+0\.0.*\n$//' altura.txt > altura_sin_ceros.txtColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Eliminar y guardar una fila

Eliminar y guardar una fila

Publicidad

Re: Eliminar y guardar una fila

Re: Eliminar y guardar una fila

Re: Eliminar y guardar una fila

Re: Eliminar y guardar una fila

Re: Eliminar y guardar una fila

Re: Eliminar y guardar una fila

Re: Eliminar y guardar una fila

¿Quién está conectado?