Tengo una función que genera 3 hashes correctamente, pero a la hora de devolver dichos hashes hacia afuera solo devuelve el último.
Using perl Syntax Highlighting
- sub recoger_valores{
- my (%hashuno, %hashdos, %hashtres) = &genera_hashes();
- use Data::Dumper::Simple;
- warn Dumper(%hashuno, %hashdos, %hashtres);
- }
- sub genera_hashes{
- my (%primerhash, %segundohash, %tercerhash);
- {
- #procedimientos que asignan valores a los hashes
- #de una manera correcta.
- }
- return (%primerhash, %segundohash, %tercerhash);
- }
- &recoger_valores;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Cuando invocamos &recoger_valores el Data::Dumper devuelve:
- %hashuno = (
- lunes => 15,
- martes => 25,
- .
- . #datos de %tercerhash
- .
- );
- %hashdos = ();
- %hashtres = ();
Ayuda, por favor, necesito que en %hashuno queden los valores de %primerhash, en %hashdos los valores de %segundohash y en %hashtres los valores de %tercerhash.
Gracias por adelantado.
