Foro - Perl en Español

por **krahd** » 2014-04-12 20:55 @913

¡Hola! Debo leer datos de un archivo .cvs donde dos de sus columnas cumplen cierta condición.

Ejemplo: Coln = "Algo" y Coln+1 = "Otra cosa".

El tema es que debo depurar mejor esa información, ya que hay una tercera columna que va variando y es la que genera el corte.

Venga:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

otras columnas Algo;Otra cosa; 12

otras columnas Algo;Otra cosa; 12

otras columnas Algo;Otra cosa; 20

otras columnas Algo;Otra cosa; 20

otras columnas Algo;Otra cosa; 20Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

En este caso debo separar en dos bloques la salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

*Título

otras columnas Algo;Otra cosa; 12

otras columnas Algo;Otra cosa; 12Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

*Titulo

otras columnas Algo;Otra cosa; 20

otras columnas Algo;Otra cosa; 20

otras columnas Algo;Otra cosa; 20Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La opción más simple fue cargar todo en un array y luego recorrerlo e ir agrupando acorde cambia la columna 3.

Pero no sé si existe otra opción.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@lineas = <>;
 
$todo = join '', @lineas;
 
$ant    = 0;
$titulo = "bla bla";
 
while ( $todo =~ /(+.?);(+.?);(+.?);Algo;Otra cosa;(+*?)/gsm ) {
    if ( $ant != $4 ) {
        $ant = $4;
        print $titulo;
    }
    if ( $ant == $4 ) {
        print renglones;
    }
    print etc etc
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¡Gracias!

#!/usr/bin/perl
use v5.14;
use autodie;
 
open my $archivo, 'code_37056.txt';     # abrimos el archivo en modo lectura
 
my $ant = 0;
my $titulo = "*Titulo\n";
 
while (<$archivo>) {                    # para todas las líneas del archivo
    my @columnas = split /[;]/;         # partimos la línea y sacamos las columnas
 
    $columnas[2] =~ s/(^\s+|\s+$)//g;   # a la tercera columna le limpiamos los espacios
 
    if ($ant ne $columnas[2]) {         # si la tercera columna es distinta de la anterior
        $ant  = $columnas[2];           # recordaremos esta nueva columna
        print $titulo;                  # imprimimos nuevo título
    }
 
    print;                              # imprimimos la línea
}
 
close $archivo;                         # cerramos el archivo
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Corte de control

Corte de control

Publicidad

Re: Corte de control

¿Quién está conectado?