Foro - Perl en Español

por **Skull118** » 2013-11-21 12:49 @575

Buenos días, compañeros, me presento nuevamente a este foro, debido a que presento un problema algo enredado del cual no he podido crear una solución, les trataré de explicar.

Tengo X cantidad de archivos CSV los cuales contienen 11 columnas de información, pero algunas columnas vienen algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

dato1,dato2,"dato3, dato extra que va siempre dentro del dato "3" algunas veces dentro del datoX vienen comas o bien comillas o saltos de línea ",dato4,etc.,etc.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

O bien vienen así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

dato1,dato2,dato3,dato4,"Aquí viene el dato5
con saltos de linea,
comas
puntos y comas;
múltiples líneas,
etc
",dato6,etc.,etc.
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿De qué manera podría procesar esta información?

Muchas gracias de antemano.

Pues... bastante mal...

Si los campos contienen caracteres de fin de línea, no se distinguen de los caracteres de fin de línea que separan registros.

Ahora bien... si dices que siempre son 11 campos... se podría intentar un apaño:

* leemos una línea y la añadimos a una variable temporal
* si la línea no contiene 11 campos, pasamos a la siguiente vuelta
* si tiene 11 campos, la procesamos y vaciamos la variable temporal
* repetimos para todo el archivo
* al final, procesamos el último registro que quede en la variable temporal, si lo hubiera.

También, lo que complica el problema, es la presencia de comas dentro de los mismos campos.

Hay módulos que permiten leer este tipo de archivos, como Text::CSV.

por **Skull118** » 2013-11-22 12:32 @564

Estuve realizando un pequeño script para ello, utilizando TEXT::CSV, sin embargo, las líneas que presentan saltos de línea dentro del registro 10, también resultan problema para este módulo

, por ende no he encontrado la forma de realizarlo :cry:

.

Lo del apaño, está muy buena la idea, no se me había ocurrido :shock:

, si puedo realizarlo, lo compartiré con la comunidad

, gracias por la idea, explorer :wink:

por **explorer** » 2013-11-22 12:54 @579

Para que Text::CSV pueda leer registros con caracteres de nueva línea, debe activarse el modo "binario" de ese módulo. ¿Lo hiciste?

por **Skull118** » 2013-11-22 16:31 @730

Afirmativo

Sintáxis: [ Descargar ] [ Ocultar ]

use strict;
use TEXT::CSV;
my @a=glob("*.csv");
foreach$a(@a){
my $sum=0;
my $csv = Text::CSV->new({ binary => 1,
eol => $/
});
open(my $data, '<' , $a) or die "NO SE PUEDE ABRIR $a $! \n";
while (my $row = $csv->getline ($data)){
for(my $x=0; $x<scalar(@$row); $x++){
print(@$row[1]);
}
}
}

por **explorer** » 2013-11-22 17:26 @768

Pues... el caso es que a mi sí me funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.16;                      # activar las nuevas característicos
use autodie;                    # «Es mejor morir que regresar con deshonor» --proverbio Klingon
 
use Text::CSV;
 
my $csv = Text::CSV->new({
        binary => 1,                                  
        eol    => $/, 
});
 
open my $DATA, '<', 'kk.csv';
 
while (my $row = $csv->getline($DATA)){
    say '-' x 50;
    say 'Campos: ', scalar @$row;
 
    for my $x ( @$row ) { 
        print "[$x]"; 
    }
 
    say;
}
 
close $DATA;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Con este archivo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

dato1,dato2,dato3,dato4,"Aquí viene el dato5

con saltos de linea,

comas

puntos y comas;

múltiples líneas,

etc.

",dato6,dato7,dato8,dato9,"dato10

con nuevas líneas",dato11Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

--------------------------------------------------

Campos: 11

[dato1][dato2][dato3][dato4][Aquí viene el dato5

con saltos de linea,

comas

puntos y comas;

múltiples líneas,

etc.

][dato6][dato7][dato8][dato9][dato10

con nuevas líneas][dato11]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **Skull118** » 2013-11-25 14:55 @663

Compañero, fíjate que ya lo logré procesar. El inconveniente que tenía, es que le estaba poniendo un parámetro incorrecto, el parámetro era quote_char. Lo tenía como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

quote_char=>"'"
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Razón por la cuál, me registraba problema. Gracias de antemano.

por **danimera** » 2013-12-04 15:52 @702

La mejor forma de leer un CSV es usando DBD::CSV y usarlo como si fuera una tabla de base de datos SQL,
trabajo de esta forma a diario. Lo recomiendo

Foro - Perl en Español

Cuál es la mejor forma para leer CSV

Cuál es la mejor forma para leer CSV

Publicidad

Re: Cuál es la mejor forma para leer CSV

Re: Cuál es la mejor forma para leer CSV

Re: Cuál es la mejor forma para leer CSV

Re: Cuál es la mejor forma para leer CSV

Re: Cuál es la mejor forma para leer CSV

Re: Cuál es la mejor forma para leer CSV

Re: Cuál es la mejor forma para leer CSV

¿Quién está conectado?