Foro - Perl en Español

Buenas tardes,

Escribo por si me podéis ayudar con el siguiente problema.

Necesito crear un hash a partir de varios arrays.

He escrito una subrutina para que el primer elemento de un array sea asignado como clave, y que el valor lo compongan el resto de los elementos del array. Pero tengo problemas para poblar (introducir las claves y los valores) el array.

Al intentar imprimir el hash (usando el modulo Data::Dumper) el array aparece vacío aunque con un número de claves que corresponde con el número de arrays que se han ido pasando a la subrutina...

Aquí os pongo la subrutina:



Gracias de antemano por vuestra atención.

Comenta o quita la línea 10.

Es decir... cuando creas $HashT{"$key"} = 1; estás diciendo que lo que contiene el valor correspondiente a la clave es el número '1', pero dentro del bucle, de repente estás diciendo a Perl que no, que en realidad querías meter una referencia a un array.

Si al principio del programa hubieras puesto use strict; te habría avisado con esto:

O sea, que Perl no puede usar la cadena "1" como una referencia a un array, que es lo que está viendo push().

En cambio, si quitas la línea 10, cuando entra en el bucle, el primer push() creará la clave e inicializará el valor con la referencia a un array. Y dentro del array, guardará el valor de $tm.

Gracias, explorer.

Siempre uso strict, como tu me recomendaste hace ya tiempo.

He hecho un programilla de prueba (debería haberlo hecho antes de postear la duda) y me funciona.

El problema en el programa más grande era que yo hacía la llamada a la subrutina en un lugar incorrecto, por lo que el array que le pasaba estaba vacío.

Ahora me surge otra duda, derivada de esto.

Al ejecutar el programa con esta subrutina dentro de otro bucle, cada vez que paso un array a la subrutina, el %HashT se reinicia, de forma que cada vez está compuesto solo de la variable derivada del array introducido en la subrutina.

¿Cómo podría pasar el %HashT (que obtengo como retorno de la subrutina) cada nueva iteración del bucle, para no perder las variables introducidas?

¿Podría hacerlo así?

quitando así de la subrutina, la línea:

Muchas gracias.

No, no puedes hacerlo así.

Hay que recordar que los argumentos a una subrutina son "desplegados", por lo que todos los elementos del array se mezclarán con las claves y valores del hash.

Una opción es pasar referencias (no probado):

Hola, explorer, tengo una duda y quiero aprovechar que acá utilizas una expresión, tal como:


No me queda clara la función de @$. ¿Puedes explicarme o decirme dónde encuentro una explicación? Me cuesta mucho todavía buscar información en perldoc.

$tm_ref es una referencia a un array (por eso la hemos llamado _ref), que es lo que pasamos a la función: no pasamos el array sino una referencia a él.

Pero en el bucle queremos acceder al array (a los elementos del array).

Por eso, si

$tm_ref

es una referencia a un array, ponemos un '@' delante

@$tm_ref

que es lo mismo que

@{$tm_ref}

entonces, estamos "desreferenciando" la referencia al array, por lo que obtenemos el array (con sus elementos).

Luego, entonces, el bucle for() está recorriendo los elementos del array referenciado por $tm_ref.

Más información en perldoc perlref, en la sección Using References (de momento, en inglés).