Using perl Syntax Highlighting
- #!c:/perl/bin
- use Spreadsheet::Read;
- use strict;
- use warnings;
- my $BASE = ReadData( "test.xlsx", cells => 0, attr => 1 );
- die "ERROR: Base de datos no encontrada" if not $BASE;
- my %HOJAS = %{ $BASE->[0]->{sheet} };
- my $HOJA = $BASE->[ $HOJAS{$sector} ]->{cell};
- for ( 1 ... maxHojas )
- { # ¿cómo saber cuántas hojas contiene el libro de Perl para meterlo en maxHojas?
- $fila = 1;
- $columna = 1;
- $booleano
- = 0; # creo que no se puede usar true o false así que utilizo números.
- while ( $booleano == 0 ) {
- if ( $HOJA->[$columna]->[$fila] == "h" )
- { # ¿cómo buscar con un patrón para saber si en esa casilla la palabra empieza por "h"?
- booleano++;
- }
- else {
- $columna++;
- }
- }
- $booleano = 0;
- while ( $booleano == 0 ) {
- while ( $HOJA->[$columna]->[$fila] == "undef" )
- { # que imprima por pantalla hasta que se acaben las palabras de esa columna que tendrá el valor undef.
- print $HOJA->[$columna]->[$fila], "\n";
- }
- booleano++;
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Cómo podría solucionar esto? ¿Alguna idea?
