• Publicidad

Cómo recorrer un hash dentro de otro

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Cómo recorrer un hash dentro de otro

Notapor lnx_hg » 2008-01-28 11:54 @537

Hola, estoy desarrollando en Perl una aplicación y estoy reutilizando código. Necesito recorrer un hash que está guardado en otro y el código es el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
while ($infopd = $dbpd->fetchrow_hashref()) {
        $limite = $infoo->{limitc} if ( ! ( $infoo->{limited} ) );                                      $sumamaterial.="    <br>$materials{$infopd->{material}}&nbsp;&nbsp;&nbsp;$infopd->{quantity}";
        $destajo+= $infopd->{salary};
        $resumenmaterial{$infopd->{material}}+= $infopd->{quantity};
}
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4


El hash que necesito recorrer es $resumenmaterial.

Por su atención: GRACIAS y un caluroso saludo. :D
lnx_hg
Perlero nuevo
Perlero nuevo
 
Mensajes: 54
Registrado: 2007-08-13 12:52 @578

Publicidad

Notapor explorer » 2008-01-28 13:27 @602

¿Algo así?

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
foreach my $material ( keys %resumenmaterial ) {
    # ...
    print $material, "->", $resumenmaterial{ $material }, "\n";
    # ...
}
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

GRACIAS

Notapor lnx_hg » 2008-01-28 17:58 @790

Muchas gracias. El código funcionó... :D
lnx_hg
Perlero nuevo
Perlero nuevo
 
Mensajes: 54
Registrado: 2007-08-13 12:52 @578


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 12 invitados