Foro - Perl en Español

por **MARKO** » 2013-11-07 12:58 @582

Hola, perl en español, necesito ayuda con este problemilla.

Tengo una función que genera 3 hashes correctamente, pero a la hora de devolver dichos hashes hacia afuera solo devuelve el último.

Sintáxis: [ Descargar ] [ Ocultar ]

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:

Sintáxis: [ Descargar ] [ Ocultar ]

%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.

sub recoger_valores {
    my ( $hashuno_ref, $hashdos_ref, $hashtres_ref ) = genera_hashes();
 
    use Data::Dumper::Simple;
    warn Dumper( %$hashuno_ref, %$hashdos_ref, %$hashtres_ref );
}
 
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.001 segundos,  usando GeSHi 1.0.8.4

Más información en tu propio ordenador en perldoc perlref, y en la Web (traducido al español).

por **MARKO** » 2013-11-07 20:18 @887

Muchísimas gracias, explorer, diste en el clavo.

Foro - Perl en Español

Devolviendo hashes desde subrutina

Devolviendo hashes desde subrutina

Publicidad

Re: Devolviendo hashes desde subrutina

Re: Devolviendo hashes desde subrutina

¿Quién está conectado?