Foro - Perl en Español

por **Emstro** » 2010-11-23 10:26 @477

Hola, mira, tengo este código y no encuentro el problema para poder imprimir el valor.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($action eq 'list') {
 
   $listallmail = $ml->GetAllMailAddresses();
   foreach $row (%{$listallmail}) {
           print "$row->{STATUS}";
   }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos.

$VAR1 = {

          'eabarca' => {

                         'CREATED_ON' => '2010-11-22 14:54:48',

                         'UPDATED_ON' => '2010-11-22 14:54:48',

                         'ADDRESS_NAME' => '',

                         'STATUS' => 'Active',

                         'ISI_ADDRESS_ID' => 'eabarca',

                         'CREATED_BY' => 'eabarca',

                         'EMAIL_ADDRESS' => 'test2',

                         'DESCRIPTION' => '',

                         'UPDATED_BY' => 'eabarca'

                       }

        };
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

¿Es como un hash de hash?.

Realmente primera vez que trato de recorrer el resultado de una función .pm.

Saludos y gracias.

por **explorer** » 2010-11-23 11:06 @504

Sí, es un hash de hash. Y según veo en el código, está imprimiendo el valor de la clave 'STATUS', del hash referenciado por $row.

Si quieres sacar todas las direcciones, te vale con recorrer las claves del hash principal. Algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

formy$clave(keys%{$listallmail}){
print$listallmail->{$clave}->{EMAIL_ADDRESS},"\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Emstro** » 2010-11-23 11:43 @530

EXCELENTE. Muchas gracias.

http://perlenespanol.com Es lo mejor.

Foro - Perl en Español

Problema para recorrer un hash

Problema para recorrer un hash

Publicidad

Re: Problema para recorrer un hash

Re: Problema para recorrer un hash

Re: Problema para recorrer un hash

Re: Problema para recorrer un hash

¿Quién está conectado?