Foro - Perl en Español

por **lis** » 2013-12-12 11:00 @500

Hola nuevamente, amigos del foro. Les cuento: tengo el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
use strict;
use warnings;
use Tie::InsertOrderHash;
 
tie my %Meses,  => 'Tie::InsertOrderHash',
    'Enero'     => 'January',
    'Febrero'   => 'February',
    'Marzo'     => 'March',
    'Abril'     => 'April',
    'Mayo'      => 'May',
    'Junio'     => 'June',
    'Julio'     => 'July',
    'Agosto'    => 'August',
    'Septiembre'=> 'September',
    'Octubre'   => 'October',
    'Noviembre' => 'November',
    'Diciembre' => 'December',
;
 
for my $mes (keys %Meses ) {
print "$mes\n";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo que hace es imprimir las claves en el orden que yo declaro, pero ¿cómo lo puedo hacer si tengo esto?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$sorthash{'Enero'}{'January'}= '32';
$sorthash{'Febrero'}{'February'}= '29';
$sorthash{'Marzo'}{'March'}= '30';
$sorthash{'Abril'}{'April'}= '30';
$sorthash{'Mayo'}{'May'}= '31';
$sorthash{'Junio'}{'June'}= '30';
$sorthash{'Julio'}{'July'}= '31';
$sorthash{'Agosto'}{'August'}= '31';
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y que imprima en pantalla:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Enero January 32

Febrero February 29

Marzo March 30

Abril April 30

Mayo May 31

Junio June 30

Julio July 31

Agosto August 31Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Gracias por su ayuda, y saludos.

#!/usr/bin/perl -w
 
use strict;
use warnings;
 
my (%sorthash,%test) = ();
 
$sorthash{'Enero'}{'January'}= '31';
$sorthash{'Febrero'}{'February'}= '29';
$sorthash{'Marzo'}{'March'}= '30';
$sorthash{'Abril'}{'April'}= '30';
$sorthash{'Mayo'}{'May'}= '31';
$sorthash{'Junio'}{'June'}= '30';
$sorthash{'Julio'}{'July'}= '31';
$sorthash{'Agosto'}{'August'}= '31';
 
for my $keys1 (keys %sorthash ) 
{
    #print "keys1: $keys1\t";
    %test = %{$sorthash{$keys1}};
    for my $testkeys (sort keys %test)
    {
        print "$keys1\t$testkeys\t";
        print "$test{$testkeys}\n";
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

y me gustaría que mostrase por pantalla los meses de enero a agosto, en este caso, de forma ordenada. Eso, gracias.

por **explorer** » 2013-12-12 13:28 @602

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $keys1 (qw(Enero Febrero Marzo Abril Mayo Junio Julio Agosto)) 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Puedes darnos una pista de lo que realmente quieres hacer?

por **lis** » 2013-12-12 16:28 @727

Una vez más, muchas gracias

por **explorer** » 2013-12-12 16:41 @736

Pero... ¿no nos puedes decir qué quieres hacer con todo eso?

por **lis** » 2013-12-13 07:01 @334

Es que tengo 12 carpetas (las cuales tienen por nombre los meses del año) y cada carpeta tiene archivos Excel que tienen el nombre de la carpeta pero en inglés. Estos archivos tienen una matriz de horas por días y, como saben, cada mes tiene distinta cantidad de días, para luego guardar estas doce matrices en un solo archivo (año completo). Es por eso que pensé que ésta sería la mejor forma. Este es el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
use Spreadsheet::Read;
 
open my $OUT, '>>', 'datos.txt' or die "ERROR: No puedo escribir en datos.txt: $!\n";
 
my $ruta = "/home/modelacion/Escritorio/excel_perl/DATA_METEOROLOGIA_CAMPAMENTO/2013";
 
my ( %sorthash, %test ) = ();
 
$sorthash{'Enero'}{'January'}        = '31';
$sorthash{'Febrero'}{'February'}     = '29';
$sorthash{'Marzo'}{'March'}          = '30';
$sorthash{'Abril'}{'April'}          = '30';
$sorthash{'Mayo'}{'May'}             = '31';
$sorthash{'Junio'}{'June'}           = '30';
$sorthash{'Julio'}{'July'}           = '31';
$sorthash{'Agosto'}{'August'}        = '31';
$sorthash{'Septiembre'}{'September'} = '30';
$sorthash{'Octubre'}{'October'}      = '31';
$sorthash{'Noviembre'}{'November'}   = '30';
$sorthash{'Diciembre'}{'December'}   = '31';
 
# for my $keys1 (keys %sorthash ) {
for my $keys1 (qw(Enero Febrero Marzo Abril Mayo Junio Julio Agosto Septiembre Octubre Noviembre Diciembre)) {
 
    my %test = %{ $sorthash{$keys1} };
 
    for my $testkeys ( sort keys %test ) {
 
        my $archivo = 'Inf-Ph-WS-' . $testkeys . '2013.xls';
 
        my $ref  = ReadData("$ruta/$keys1/$archivo");
        my $HOJA = $ref->[1]->{cell};
 
        for my $fila ( 10 .. 57 ) {    # para todas las filas
            for my $columna ( 1 .. $test{$testkeys} ) {    # para todas las columnas
 
                print $OUT $HOJA->[$columna]->[$fila], " ";
            }
            print $OUT "\n";           # fin de cada línea
        }
        close $OUT;
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aprovechando la instancia

, me gustaría saber cómo este código podría identificar algunas celdas o casillas de la planilla u hoja de Excel en los cuales hay más de un dato, por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

1,13

Dat[-]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

y reemplazarlo por el carácter NaN.

Espero haber sido clara y muchas gracias.

por **explorer** » 2013-12-13 08:46 @407

Esta es otra forma de resolverlo, me parece que más clara.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
use autodie;
use POSIX;
use Spreadsheet::Read;
 
## Constantes
my $year  = 2013;
my $ruta  = "/home/modelacion/Escritorio/excel_perl/DATA_METEOROLOGIA_CAMPAMENTO/$year";
my @meses = (
    [ 'Enero',           'January',      31 ],
    [ 'Febrero',         'February',     29 ],
    [ 'Marzo',           'March',        31 ],
    [ 'Abril',           'April',        30 ],
    [ 'Mayo',            'May',          31 ],
    [ 'Junio',           'June',         30 ],
    [ 'Julio',           'July',         31 ],
    [ 'Agosto',          'August',       31 ],
    [ 'Septiembre',      'September',    30 ],
    [ 'Octubre',         'October',      31 ],
    [ 'Noviembre',       'November',     30 ],
    [ 'Diciembre',       'December',     31 ],
);
 
## Proceso
open my $OUT, '>>', 'datos.txt';
 
for my $mes (@meses) {                          # para todos los meses
 
    my($mes_spa, $mes_eng, $mes_dias) = @{$mes};
 
    my $ref  = ReadData("$ruta/$mes_spa/Inf-Ph-WS-$mes_eng$year.xls");
    my $HOJA = $ref->[1]->{cell};
 
    for my $fila   ( 10 .. 57 ) {               # para todas las filas
        my @fila;
 
        for my $columna ( 1 .. $mes_dias ) {    # para todas las columnas
 
            my $dato = $HOJA->[$columna]->[$fila];
 
            $dato = 'NaN' if not isdigit($dato);
 
            push @fila, $dato;
        }
 
        print $OUT "@fila\n";
    }
}
 
close $OUT;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Detalles:

marzo tiene 31 días
tenías puesto el close del archivo dentro de los bucles, así que se cerraba después del primer mes
los datos están puestos en forma de array, así que mantienen un orden. Y cada uno de sus valores es un array, que reúne los tres datos que queremos por cada mes
el número de año se utiliza en más de un sitio. Poniéndolo como constante aparte, hacemos el código más fácil de mantener
usamos el módulo autodie para que mate el proceso en caso de problemas con la lectura/escritura de archivos
usamos el módulo POSIX para importar la función isdigit() y comprobar que el $dato es numérico
usando la variable de array @fila, metemos (push) ahí todos los datos de la fila, para luego sacarlos con un simple print, que con la ayuda de las comillas dobles, salen separados con espacios, y además evitamos la salida de un espacio en blanco extra al final de la línea, como estaba antes

por **lis** » 2013-12-16 09:11 @424

Hola, explorer, te cuento que ejecuté el código y el archivo que guarda la información final (datos.txt) contiene los siguiente (es solo el ejemplo de una línea de 24 y todas son iguales):

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN NaN 0 0 NaNColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

en el cual a todos los números con decimales les pone NaN. Revisando el código cambio la siguiente línea:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$dato = 'NaN' if not isdigit($dato);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$dato = 'NaN' if isdigit($dato);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

el cual arroja como resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

1.59 3.39 8.45 NaN 6.66 1.18 3.44 3.15 2.44 2.74 4.58 3.37 6.45 4.95 3.64 3.37 5.12 3.64 2.49 1.67 2.7 1.84 4.05 2.95 3.71 0.89 1.96 NaN NaN 1.28 2.34Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

donde respeta los números con decimales, pero los sin decimales los reemplaza por 'NaN'.

Y gracias por el detalle de los días de marzo

Foro - Perl en Español

Imprimir en orden claves hash de segundo nivel

Imprimir en orden claves hash de segundo nivel

Publicidad

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

Re: Imprimir en orden claves hash de segundo nivel

¿Quién está conectado?