Foro - Perl en Español

Es recomendable leer perldata, perldsc, acceso a Hash de Arrays y perllol, Slices, que es de donde he sacado el último ejemplo, aunque recomienda no usarlo, porque es más difícil de leer que si hubiéramos puesto un bucle.

Lo académico sería

o

Intercambia el orden de los parámetros.

Resulta que los array y los hash son 'expandidos' en todos sus elementos, cuando los pasas por valor, por lo que, a efectos prácticos, le están pasando todas las parejas clave/valor como si fuera una lista de valores. Luego, dentro de la función, intentas volver a leer el hash, pero Perl no sabe que $contador forma parte de una variable aparte, y en su lugar cree que se trata de una clave más del hash que se pasó. Por eso se mete en %corpus. Y $contador se queda sin valor.

Pero intercambiando los argumentos, arreglas este problema, porque primero obtienes el valor de $contador, y luego ya sabes que todos los elementos que le siguen, tomados de dos en dos, son las claves/valor del hash.

Otra opción, mejor, es pasar todos los argumentos por referencia.



Más información en perlsub.

P.D. Realmente, al hacer un 'shift', en tu función, solo estás leyendo el primer valor del hash (la primera clave), y luego, el siguiente 'shift' mete el valor de esa clave en contador.

Te lo he puesto de ejemplo. Pasándolo como referencia, hay que referirse a él como una referencia, por lo que hay que desreferenciarla en caso de querer acceder a los elementos. Mira el ejemplo que te he puesto.

También puedes hacer una copia: