Foro - Perl en Español

Hola a todos.

Tengo un hash compuesto de (valor, array de elementos). ¿Cómo puedo obtener un array de elementos correspondiente a un valor concreto? Supongamos que el valor es "marmitako" y su array correspondiente: (patata,atún,tomate,cebolla).

He intentado hacer así:



Pero no sirve.

He visto en el tutorial que podemos acceder a un elemento del array así:



¿Pero cómo podría acceder a todos?



Así no, ¿no? Porque no funciona...

Gracias a todos,

Xagutxu

Hola.
Usa esto:

Pues he probado lo que me has dicho, pero sale un error en el "for":

Código: Seleccionar todo

Operation "<": no method found,
        left argument has no overloaded magic,
        right argument in overloaded package XML::LibXML::NodeList at erabaki_zuhaitzak.pl line 243.

Estoy utilizando, como se ve, el XML::LibXML, y no sé si hace alguna interferencia...

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

Gracias como siempre, Explorer. Ya sabes, "después de visto..."

Tengo otro problemita: ¿Es posible pasar un hash a una subrutina?

Tengo:

Imprimo, dentro de la subrutina, el %corpus:


Y obtengo el error:

Código: Seleccionar todo

"Can't use an undefined value as an ARRAY reference at file.pl line 337."

¿Es por que estoy pasando mal el hash a la subrutina?

Gracias,

Xagutxu

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.

¿Y cómo puedo reconstruir el hash con el foreach?

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:

¡Uauu!

Todo bien, aunque tengo que mirar bien la documentación de perlsub, porque me queda un poco grande...

¡Gracias, explorer!