Foro - Perl en Español

Buenas tardes,

Hice una subrutina para que me fuera escribiendo los datos de un array como una columna en una hoja Excel. Yo necesito que cada array que se pase a la subrutina de forma consecutiva, se pueda escribir como una columna nueva de la misma hoja Excel.

Usando el módulo Spreadsheet::WriteExcel solo me escribe una columna y después se para la ejecución del programa, al no dejarme escribir nada más en la misma hoja del archivo Excel.

Os pongo el código a ver si me podéis decir algo:



¿Alguien me puede explicar por qué no me deja escribir más de una columna o cómo abrir el Excel para poder agregarle columnas nuevas? (ya que [">>tabla.xls"] parece no valer aquí)

Un saludo

El paso de un array a una columna lo hace, en un solo paso, el método write_col() de ese mismo módulo. ¿Lo has probado?

Aparentemente con esta llamada, la subrutina me funciona y se escribe un array por fila

# Antes del las subrutina:

use Spreadsheet::WriteExcel;

[BLOQUE]

my $workbook = Spreadsheet::WriteExcel->new('tabla.xls');

my $worksheet = $workbook->add_worksheet();

my fila=1;

[BLOQUE]

# La invoco con la siguiente expresión dentro del bucle

for(@tmp){

[BLOQUE]

&ex_print($worksheet, @TM);

[BLOQUE]

@TM =();

}

# La subrutina en si misma:

sub ex_print{

my($worksheet,$TM)=@_;

$worksheet->write_row("A"."$fila", \@TM);
$fila++;
}


Se podrían imprimir los arrays en columnas usando:

$worksheet->write_col("A"."$col", \@TM);

Muchas gracias como siempre, explorer.