Foro - Perl en Español

Estimados, buenas tardes.

Me estoy interiorizando de a poco en este lenguaje, he leído alguno de sus mensajes de ustedes buscando alguna ayuda a mi problema...

Básicamente lo que necesito hacer es leer un fichero CSV, que lo recorra completo y que guarde los datos en un archivo Excel.

Agradecería desde ya me pudieran compartir un ejemplo a fin de modificarlo a mis necesidades.

Desde ya, ¡gracias!

¡Saludos!

Hola, explorer.

Te cuento que lamentablemente no pude conseguir lo que buscaba, pero te cuento que estoy usando la librería Win32::OLE, en donde hice la siguiente subrutina (leer_workbook) para leer un archivo Excel que apunto desde un panel inicial.

La idea es que cuando obtenga el CSV final, esta información se me guarde en el archivo Excel que apunto en el inicio.

sub leer_workbook{
my ($ExcelApp, $xls_file) = @_;
my $Book = $ExcelApp->Workbooks->Open("$xls_file") or die "No se pudo abrir $xls_file";
($Book);
}

De esta forma estoy leyendo el fichero CSV:

while (<CSV>) {
chomp;
s/\s+//g;
my ($SOURCE, $REGION, $CATEG, $PRODUCT, $CUTOFF) = split(",", $_);
my $dia;

$datos{$dia} = $TOTAL_MASS;
}

close CSV;

%datos;
}

Y de esta forma estoy guardando la información en mi archivo Excel:

my $ExcelApp = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');

$ExcelApp->{DisplayAlerts} = 0;

$ExcelApp->{Visible} = 0;

my $Book;

$Book = leer_workbook $ExcelApp, $archivo_excel;

my $Sheet = $Book->Worksheets(1);

for my $dia (sort{$a <=> $b} keys %datos){
$Sheet->Cells($fila , $col)->{NumberFormat} = "0.00";
$Sheet->Cells($fila , $col)->{Value} = $datos{$dia};
}

Todo lo anterior anda bien, pero lo que busco es guardar todo el contenido del CSV en mi archivo Excel, y no por parte o columnas... ¿¿se entiende?? Necesito ver la forma de recorrer todo el CSV y que se guarde íntegramente en mi archivo Excel.

Desde ya se agradece todo el apoyo.

Saludos.

Yo haría lo siguiente (a grandes rasgos).


Ahora bien... hay otra forma más drástica.

Como estás usando el protocolo OLE, eso significa que estás dialogando de forma "directa" con el propio Excel... por lo que puedes pedirle a Excel... que sea él el que abra el archivo CSV directamente, es decir, como si estuviéramos abriendo un archivo XLS normal.

Yo estoy seguro que Excel es capaz de abrir un archivo CSV sin problemas (salvo que haya problemas con la codificación de caracteres, los caracteres de fin de línea y si algún campo contiene caracteres incompatibles con la norma CSV).

Una vez que Excel ha leído el archivo CSV, ahora le pedimos que... lo guarde con el formato que queramos.

$Sheet->SaveAs("NEWFILENAME.XLS", xlExcel8);

# Lista de formatos en https://msdn.microsoft.com/en-us/librar ... ormat.aspx

Esto es tan común que existe un módulo que ya lo hace: Win32::Scsv Puedes mirarle el código para ver cómo lo hace, en caso de que no quieras instalarlo. Pero bastaría con una línea así:

csv_2_xls('dummy.csv' => 'Test2.xls');

Pero incluso permite hacer alguna transformación:

En el código fuente de este módulo, al principio, verás que usa los valores numéricos para el método SaveAs.

Naturalmente, esto solo sirve si queremos convertir un CSV a XLS. Si nuestra idea es "meter" el CSV en una de las hojas del libro Excel, entonces sí que debemos hacerlo con el procedimiento anterior.

Gracias, explorer, por responder tan rápido.

Respecto a tu forma "drástica", te cuento que no tengo ese módulo instalado, puesto que estoy usando una aplicación que sólo interpreta lenguaje Perl, el cual no trae todos los módulos.

En relación a tu primera respuesta, coincidimos en lo que se debería hacer, pero estoy recién empezando en este lenguaje y no logro hacer aún algunas cosas por si solo, particularmente el tema de "recorrer todos los registros del archivo CSV", ya que el archivo ya existe, técnicamente no sé cómo asociarlo a un array, siempre he visto arrays de esta forma:

my @datos = [[79899,34567,2500,0.23],
[79899,34567,2501,0.34],
[79222,34222,2501,0.2]];

Pero en este caso debe tomar los registros del CSV ya existente.

Puntualmente me gustaría que me pudieras poner algún ejemplo de cómo recorrer y tomar los valores de un archivo CSV que ya existe y alojarlos en un array para así adaptarlo a mis necesidades ¡por favor!

Desde ya, gracias. ¡Saludos!

stevnet escribiste:Respecto a tu forma "drástica", te cuento que no tengo ese módulo instalado, puesto que estoy usando una aplicación que sólo interpreta lenguaje Perl, el cual no trae todos los módulos.

Pues es muy raro lo que dices, porque Win32::OLE no viene en la distribución básica de Perl. De todas maneras, puedes ver su código por si quieres ver cómo hace el proceso.

stevnet escribiste:En relación a tu primera respuesta, coincidimos en lo que se debería hacer, pero estoy recién empezando en este lenguaje y no logro hacer aún algunas cosas por si solo, particularmente el tema de "recorrer todos los registros del archivo CSV", ya que el archivo ya existe, técnicamente no sé cómo asociarlo a un array.

Pero si tu mismo lo has escrito, en el mensaje anterior: