Foro - Perl en Español

por **enric73** » 2013-10-24 03:02 @168

Hola, perleros,

Dispongo de un fichero formato CSV con el siguiente contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Tomates,10,12,9,13

Peras,19,20,22,18

Manzanas,15,20,22,17Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Quiero añadir la siguiente línea como primera fila:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Frutas,1,2,3,4Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Pero este fichero CSV puede tener un número diferente de columnas, es decir, que el formato, de la primera línea tiene que ser, Frutas, 1,2,...,N-1

¿Alguien puede ayudarme?

Gracias, estaré agradecido.

Abres el archivo y lees todas las líneas, a un array (cada línea en cada elemento del array)
Lees del array la primera línea.
Partes esa línea por las comas, y así sabes el número de columnas.
Creas la cabecera, con algo así como esto (no probado):

my $cabecera = join "'", 'Frutas', 1 .. $numero-1;

Abres en modo de escritura el csv.
Imprimes la cabecera, y el resto de las líneas.
Cierras.

por **enric73** » 2013-10-27 17:24 @766

Hola, explorer.

Finalmente he escrito este script siguiendo tus indicaciones. Funciona, pero posiblemente tu lo harías de otra manera... Si es así, me gustaría conocerla. ¿A lo mejor utilizando el módulo Text::CSV?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl
use v5.10;
use autodie;
use lib '/home/enric/perl5/lib/perl5/';
chdir("$ENV{HOME}/csv");
 
my $i;
open( my $infile, "<", "Barcelona.csv" ) or die $!;
open( $outfile, "> Barcelonaout.csv" ) || die "No se puede abrir el archivo\n";
 
$registro  = <$infile>;
@campo     = split( ",", $registro );
$arraySize = scalar(@campo);
print my $cabecera = join ",", 'Frutas', 1 .. $arraySize - 1;
print $outfile $cabecera . "\n";
close($infile);
 
open( my $infile2, "<", "Barcelona.csv" ) or die $!;
while ( $registro2 = <$infile2> ) {
    chop($registro2);
    print $outfile $registro2 . "\n";
    $i++;
}
 
close($infile2);
close($outfile);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Gracias.

por **explorer** » 2013-10-27 21:37 @942

(no probado)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/local/bin/perl
use v5.10;
use autodie;
 
chdir "$ENV{HOME}/csv";
my $archivo = 'Barcelona';
 
open my $INFILE, '<', "$archivo.csv";          # Abres el archivo y lees todas las líneas, a un array
my @archivo = <$INFILE>;
close $INFILE;
 
my $primera = $archivo[0];                     # Lees del array la primera línea.
 
my $n_columnas = split /[,]/, $primera;        # Partes esa línea por las comas, y así sabes el número de columnas
 
my $cabecera = join q[,], 'Frutas', 1 .. $n_columnas-1;        # Creas la cabecera
 
open my $OUTFILE, '>', "${archivo}out.csv";   # Abres en modo de escritura el csv.
print   $OUTFILE "$cabecera\n";               # Imprimes la cabecera,
print   $OUTFILE @archivo;                    # y el resto de las líneas.
close   $OUTFILE;                             # Cierras.
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Introducir cabecera en un csv

Introducir cabecera en un csv

Publicidad

Re: Introducir cabecera en un csv

Re: Introducir cabecera en un csv

Re: Introducir cabecera en un csv

¿Quién está conectado?