Using perl Syntax Highlighting
while ($infopd = $dbpd->fetchrow_hashref()) {
$limite = $infoo->{limitc} if ( ! ( $infoo->{limited} ) ); $sumamaterial.=" <br>$materials{$infopd->{material}} $infopd->{quantity}";
$destajo+= $infopd->{salary};
$resumenmaterial{$infopd->{material}}+= $infopd->{quantity};
}
$limite = $infoo->{limitc} if ( ! ( $infoo->{limited} ) ); $sumamaterial.=" <br>$materials{$infopd->{material}} $infopd->{quantity}";
$destajo+= $infopd->{salary};
$resumenmaterial{$infopd->{material}}+= $infopd->{quantity};
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El hash que necesito recorrer es $resumenmaterial.
Por su atención: GRACIAS y un caluroso saludo.
