Foro - Perl en Español

Hola a todos, estoy teniendo un pequeño problema tratando de acceder a una tabla hash.

Bueno, aquí van las preguntas:

1- ¿Puedo almacenar un hash dentro de un arreglo?
2- En caso de que sí, ¿accedo de la misma forma como si fuera un arreglo normal y un hash normal?

Aquí está parte del código que estoy utilizando:


Espero que alguien me pueda guiar un poco...

Gracias.

---
Ricardo Wing Alcázar
ClearCorp
www.clearcore.co.cr

Bienvenido a los foros de Perl en Español, RWing.

1.- Puedes almacenar un diccionario dentro de un arreglo, guardando los pares clave/valor como elementos individuales del arreglo. O también, puedes guardar el diccionario entero como una referencia en uno de los elementos del arreglo, que parece ser esto último lo que estás usando, atendiendo a los comentarios del código.

2.- El acceso a los datos debe ser un reflejo de la estructura de datos que tengas.

Según el código presentado, habría que hacer unos cambios:

por

Si $palabraDoc contiene un elemento de un arreglo de diccionarios, es lo mismo que decir que contiene realmente una referencia a un diccionario. Y la forma de des-referenciarlo es con el '->'.

En caso de duda, usa Data::Dumper:

Hola, muchas gracias por la pronta respuesta. Ahora sí lo está haciendo bien, pero tengo un pequeño problema con referencias.

Necesito que el hash se vacíe y que se vuelva a llenar en un ciclo. Entonces lo que hago es hacerle un undef(). Lo que pasa es que esto me anula TODOS los hash que se van creando y agregando al arreglo porque guarda una referencia a ese hash.

¿No existe alguna forma de que el hash sea creado nuevamente sin que afecte el hash anterior?



En total son 150 líneas de código; no sé qué tan bueno será ponerlo todo.

Muchas Gracias nuevamente y gracias por la bienvenida.

Espero me puedan ayudar con esto también.

No tienes que hacer un undef() del diccionario, sino que en cada vuelta en que necesites usar un nuevo diccionario fresco, decirlo así:

Esto lo pones dentro de sub archivo(), justo antes del primer foreach() (es decir, al mismo nivel de contexto que el push() final).

El objetivo es el siguiente: cuando la subrutina archivo() sea llamada, se crea un diccionario %apareceEnDoc nuevo, que se almacenará en @paraPostings. Al terminar la subrutina, como es una variable local definida con el operador my(), debería desaparecer, pero no lo hace, porque está siendo referenciada por el arreglo. A la hora de llamar de nuevo a la subrutina, el proceso se repite: crea un nuevo diccionario, se usa y se guarda su referencia. Y este segundo diccionario, aunque se llama igual que el anterior, no tienen nada que ver entre sí: los hemos declarado como locales a la función, por lo que son nuevos en cada ejecución de la subrutina.

Esta es la manera que tiene Perl de crear estructuras de datos, algo que en otros lenguajes, como C y C++, lo haríamos con el operador new().

Recuerda: una variable no termina de desaparecer hasta que se eliminan todas las referencias a ella.

Realmente les quiero agradecer por la ayuda brindada.

Después de una lectura exhaustiva me di cuenta que podía hacer algo con la declaración de variable locales y no globales, sin embargo no entendía muy bien como hacerlo.

Ahí traveseando y haciendo pruebas obtuve una solución que me parece que es muy parecida a lo que me aconsejaron, pero un poco más ineficiente.



Sin embargo, lo probé como me dijo y funciona excelente.

Realmente muchas gracias.

---
Ricardo Wing Alcázar
ClearCore
www.clearcore.co.cr