Foro - Perl en Español

por **reLlene** » 2013-06-24 13:36 @608

Mientras una consulta a la DB me devuelve registros, voy cargando estos en un hash con el fin de poder, luego, desplegar ese listado con alguna que otra restricción:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                $altas{$fec}->{$valor}->{identificador}=$id;
                $altas{$fec}->{$valor}->{login}=$login;
                $altas{$fec}->{$valor}->{dire}=$dire;
                $altas{$fec}->{$valor}->{tel}=$tel;
                $altas{$fec}->{$valor}->{fdp}=$fdp_rid;
                $altas{$fec}->{$valor}->{solicitud}=[$estado_soli,$obs_soli];
                $altas{$fec}->{$valor}->{comision}=[$comisiona,$fec_comision];
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

__OUTPUT__

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

%hash => {

          '06-05-2013' => {

                            '1' => {

                                     'identificador' => 20623,

                                     'comision' => [

                                                     0,

                                                     '--'

                                                   ],

                                     'login' => 'algio_c',

                                     'dire' => 'XXXXXXXXXXXXXXXXXX',

                                     'tel' => '55555555555555',

                                     'fdp' => 1,

                                     'solicitud' => [

                                                      'Disponibilidad OK',

                                                      'CAMBIO DE ESTADO<BR>cumplido'

                                                    ]

                                   },

                            '0' => {

                                     'identificador' => 18816,

                                     'comision' => [

                                                     0,

                                                     '--'

                                                   ],

                                     'login' => 'rossianacri1',

                                     'dire' => 'XXXXXXXXXXXXXXXXXXXXXX',

                                     'tel' => '999999999999',

                                     'fdp' => 1,

                                     'solicitud' => [

                                                      '--',

                                                      '--'

                                                    ]

                                   }

                          },

          '09-04-2013' => {

                            '1' => {

                                     'identificador' => 19614,

                                     'comision' => [

                                                     0,

                                                     '--'

                                                   ],

                                     'login' => 'untoiglich',

                                     'dire' => 'XXXXXXXXXXXXXXXXXXXXXX',

                                     'tel' => '88888888888888',

                                     'fdp' => 2,

                                     'solicitud' => [

                                                      'Cancelado',

                                                      'CAMBIO DE ESTADO<BR>'

                                                    ]

                                   }

                          },

                };Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Como verán primero ordeno por fecha, luego según 1 o 0 y dentro de estos los datos de una persona
foreach my $fecha (keys %altas)
        {
        # de aquí en adelante no logro ver NADA del hash, ¡¡¡ no sé qué hago mal !!!
        foreach my $key (keys %{$altas{$fecha}} )
                {
                foreach my $info_alta ( keys %{ $altas{$fecha}->{$tieneSoli} } )
                        {
                        say $info_alta->{identificador};
                        }
                }
        }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¡¡¡ Agradezco quien me pueda echar un cable !!!

Un saludo

#!/usr/bin/perl
use feature 'say';
 
my %altas = (
    '06-05-2013' => {
        '1' => {
            'identificador' => 20623,
            'comision' => [
                0,
                '--'
            ],
            'login' => 'algio_c',
            'dire' => 'XXXXXXXXXXXXXXXXXX',
            'tel' => '55555555555555',
            'fdp' => 1,
            'solicitud' => [
                'Disponibilidad OK',
                'CAMBIO DE ESTADO<BR>cumplido'
            ]
        },
        '0' => {
            'identificador' => 18816,
            'comision' => [
                0,
                '--'
            ],
            'login' => 'rossianacri1',
            'dire' => 'XXXXXXXXXXXXXXXXXXXXXX',
            'tel' => '999999999999',
            'fdp' => 1,
            'solicitud' => [
                '--',
                '--'
            ]
        }
    },
    '09-04-2013' => {
        '1' => {
            'identificador' => 19614,
            'comision' => [
                0,
                '--'
            ],
            'login' => 'untoiglich',
            'dire' => 'XXXXXXXXXXXXXXXXXXXXXX',
            'tel' => '88888888888888',
            'fdp' => 2,
            'solicitud' => [
                'Cancelado',
                'CAMBIO DE ESTADO<BR>'
            ]
        }
    },
);
 
for my $fecha (keys %altas) {
    say "$fecha:";
 
    for my $key (keys %{$altas{$fecha}} ) {
 
        say "\t$key => $altas{$fecha}{$key}{'identificador'}";
    }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

06-05-2013:

        1 => 20623

        0 => 18816

09-04-2013:

        1 => 19614Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **reLlene** » 2013-07-16 14:08 @630

Solucioné mi problema ni bien te leí, explorer, pero recién paso a agradecer :lol:

¡¡¡Muchas gracias por tu tiempo compañero!!!

Foro - Perl en Español

No puedo mostrar contenido de HoH

No puedo mostrar contenido de HoH

Publicidad

Re: No puedo mostrar contenido de HoH

Re: No puedo mostrar contenido de HoH

¿Quién está conectado?