Foro - Perl en Español

por **hughgrc** » 2017-12-20 07:14 @343

Hola.

Llevo varios días investigando por Internet y no soy capaz de hacer un programa en Perl para pasar un archivo Excel en formato ".xls" a formato ".csv".

Si alguien me puede pasar un script de ejemplo (y a poder ser, sencillo ¡jajaja!) sobre cómo se haría; me sería de mucha ayuda.

¡Muchas gracias y un saludo!

#!/usr/bin/env perl
 
use Spreadsheet::XLSX;
use Text::Iconv;
 
# Conversor de codificación
#my $converter = Text::Iconv -> new ("utf-8", "windows-1251");
 
# Creación del objeto
#my $excel = Spreadsheet::XLSX->new('test.xlsx', $converter);
my $excel = Spreadsheet::XLSX->new('clinicamym.xlsx');
 
# Hojas que hay en el libro
for my $hoja (@{$excel -> {Worksheet}}) {
    printf("Hoja: %s\n", $hoja->{Name});
}
 
# Hoja de donde sacaremos los datos
my $hoja = $excel->worksheet('noticias');
 
# Número máximo de filas, si no está definido
$hoja->{MaxRow} ||= $hoja->{MinRow};
 
# Contenido de la hoja, para todas las filas
for my $fila ($hoja->{MinRow} .. $hoja->{MaxRow}) {
 
    for my $columna ($hoja->{MinCol} .. $hoja->{MaxCol}) {
 
        my $celda = $hoja->{Cells}[$fila][$columna];
 
        if ($celda) {
            printf("( %s , %s ) => %s\n", $fila, $columna, $celda->{Val});
        }
    }
}
 
 
# Llamar al método xlsx2csv de forma directa
# Extraer solo una región de la hoja
use Spreadsheet::XLSX::Utility2007 'xls2csv';
 
# definición de la región: hoja-rango
my $region = '1-C1:E17';
print xls2csv('clinicamym.xlsx', $region, 0);
 
$region = '3-C3:F7';
print xls2csv('clinicamym.xlsx', $region, 0);
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Como ves, al final del programa, es muy fácil sacar una región de una determinada hoja, dentro del libro Excel.

Ahora bien... esto solo se puede hacer si ANTES parcheas el código de Utility2007.pm. Estas son las líneas que debes cambiar:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    # start the excel object now
    my $oExcel = Spreadsheet::XLSX->new($filename);
    #my $oBook  = $oExcel->Parse($filename);
 
    # open the sheet
    my $oWkS = $oExcel->{Worksheet}[$sheet];
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La salida del método xls2csv() es una cadena de texto con los campos separados por comas. Luego te queda como trabajo guardar el resultado a un archivo en disco.

Por estos foros hay algunos hilos referidos al formato xlsx. Usa el sistema de búsqueda.

En CPAN puedes encontrar muchos módulos para tratar archivos xlsx, incluso más modernos que este Spreadsheet::XLSX.

por **hughgrc** » 2017-12-21 07:27 @352

¡Muchas gracias por la respuesta!

No he sido capaz de instalar el módulo que me has comentado... Estoy utilizando el programa "Padre, The perl IDE". Y no sé si es el más indicado ya que me suele dar bastantes problemas con la instalación de los módulos.

¿Cuál me recomendaríais usar? Perdonad por estas preguntas tan de principiante, pero es que llevo programando en Perl menos de dos semanas.

Gracias de nuevo y un saludo.

por **explorer** » 2017-12-21 11:09 @506

Yo lo he instalado en mi sistema con el comando cpanm (cpanminus) en mi directorio local de usuario, así no tengo que depender del Perl del sistema.

Tienes lo básico en este hilo: Instalación de módulos y bibliotecas en Perl.

No sé si estás en Linux o Windows. Si es Windows, mira la guía anterior. Si es Linux, puedes hacerte root del sistema, e instalar el módulo si lo trae tu gestor de paquetes. Por ejemplo, si es un Linux basado en Debian, sí que existe el paquete libspreadsheet-xlsx-perl, por lo que solo tendrás que ejecutar

apt-get install libspreadsheet-xlsx-perl

y ya está.

Si no está disponible de esta forma, tendrás que ejecutar el comando cpan o cpanp para instalarlo "a mano":

cpan Spreadsheet::XLSX

Bueno, no fue tampoco tan fácil. Tuve antes que instalar Sub::Identify y Archive::Zip (también disponibles como paquetes en Debian como libsub-identify-perl y libarchive-zip-perl).

por **hughgrc** » 2018-01-02 07:05 @337

Muchas gracias, pero sigo teniendo problemas con la instalación de los módulos de Perl.

Por lo tanto, he estado mirando alternativas y he encontrado este script para pasar al formato .csv:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use IO::Handle;
use FileHandle;
use Spreadsheet::ParseExcel;
 
my $xlsparser = Spreadsheet::ParseExcel->new();
my $xlsbook   = $xlsparser->parse('d:\\PERL\Archivos CSV\Creados\\SHNT_R.xls');
my $xls       = $xlsbook->worksheet(0);
my ( $row_first, $row_last ) = $xls->row_range();
my ( $col_first, $col_last ) = $xls->col_range();
my $csv = '';
for my $row ( $row_first .. $row_last ) {
    for my $col ( $col_first .. $col_last ) {
        my $cell = $xls->get_cell( $row, $col );
        next unless $cell;
        $csv .= $cell->unformatted();
        if ( $col == $col_last ) {
            $csv .= "\n";
        }
        else {
            $csv .= ",";
        }
    }
}
open( my $FH, '>', "d:\\PERL\\Archivos CSV\\Creados\\SHNT_R.csv" ) or die "oops!";
while ( my $line = <$xlsbook> ) {
    print $FH $line;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero al ejecutarlo me da el siguiente error:

"NOT a GLOB reference at pasar a csv.pl line 27"

¿Sabrías decirme cómo solucionar ese error?

¡Gracias y un saludo!

por **explorer** » 2018-01-02 08:42 @404

El error indica que $xlsbook no es un identificador de archivo, por lo que no se puede usar en esa línea.

Efectivamente, contiene un objeto hoja (Spreadsheet::ParseExcel::Worksheet), así que no se puede usar como si estuviéramos leyendo de un archivo.

El archivo xls ya lo estás leyendo en las líneas anteriores. Solo te queda guardar las filas en formato CSV, y eso es justo lo que ocurre con la variable $csv.

por **hughgrc** » 2018-01-03 03:40 @195

¿Me podrías decir cómo tendría que hacer para que me lo guarde en formato .csv? ¿Cambiar la variable $xlsbook por la variable $csv en la línea 27?

por **explorer** » 2018-01-04 10:21 @473

Tienes que hacer el open del archivo antes del doble bucle for(). La línea 27 no tiene sentido, así que quítala. No sé de dónde lo habrás copiado, pero este programa no debería funcionar.

Y luego, tienes que llevar el print $FH $csv; al final del bucle más interno, que es cuando ha terminado de leer todas las columnas de una fila.

Faltaría por poner un close $FH; al final del archivo, y ya está.

P.D.: estamos en el foro Intermedio, donde se supone que deberías saber hacer estas cosas, al menos entender qué es lo que el código hace.

Foro - Perl en Español

Pasar de .xls a .csv

Pasar de .xls a .csv

Publicidad

Re: Pasar de .xls a .csv

Re: Pasar de .xls a .csv

Re: Pasar de .xls a .csv

Re: Pasar de .xls a .csv

Re: Pasar de .xls a .csv

Re: Pasar de .xls a .csv

Re: Pasar de .xls a .csv

¿Quién está conectado?