Foro - Perl en Español

Buenos días:

Tengo un HASH con esta estructura:


Quiero pasar cada llave a otro hash, poniendo cada llave asociada a la ruta que lleva hasta ella:
a = a
b = a/b
...
g = a/f/g

Puedo hacerlo con una solución poco elegante (anidando bucles que leen las llaves):


¿Habría alguna forma de recorrerlo hasta la profundidad que fuese? Con los bucles foreach doy por hecho que hay hasta 3 niveles de anidamiento pero no siempre será así.

He pensado en hacerlo con referencias y con una función pero no sé si voy bien encaminado.

Un saludo


Gracias
Un saludo

Pues yo creo que vas bien encaminado. Bueno, yo lo acabo de resolver así

Usas las referencias para pasar de un nivel a otro de la recursión, teniendo en claro qué pasas y que no. Y luego la subrutina, que se llamará de forma recursiva.

De esta manera, puedes procesar cualquier tipo de profundidad.

Si te atascas, me avisas, y publico mi solución.

¡Adelante!

Hola, explorer:

Creo que me pierdo. Le paso la referencia de todo el HASH a una función, para que lo saque a otro pero me estoy dejando algo:

La función a la que le paso la referencia R(\%EW) es


¿Dónde acumulo las rutas?

Creo que el problema está en la línea

keys $a

que debería ser

keys %$a

(Si $a contiene una referencia a un hash, %$a es el hash, con lo que ya podemos pedirle sus claves con keys. Bueno, según la versión que tengas de Perl, podría hacerlo de forma automática).

Pero, quizás, el mayor problema es la línea 9: estás modificando el valor de $a. Cuando se regrese de la llamada de la línea 10, la siguiente vuelta del bucle foreach lo estará haciendo sobre un $a modificado, y el if de la línea 6 fallará antes de tiempo.

Quita la línea 9 y cambia la línea 10 por

R($a->{$b});

La ruta yo la almaceno en un array, que también paso por parámetro. Pero, atención, creo un nuevo array antes de cada llamada recursiva, para evitar que las distintas llamadas interfieran sobre el mismo array, y creen rutas cada vez más grandes.

Hola:

Yo también lo saco a array, pero sólo consigo que me lo guarde por niveles y además me crea algunos vacíos:



¿¿Cómo podría hacer que cada llave acumule su ruta?

Hay un error.

En la línea 13 estás llamando a R, con dos argumentos. El primero es una referencia (lo has comprobado en la línea 10). Y el segundo, realmente, son TODOS los elementos del array @ac. Es decir, Perl "despliega" el contenido del array, y le pasa a R() un argumento por cada elemento del array.

Y... ahora viene el problema. En la línea 4 pones que el siguiente argumento a la referencia, es un solo elemento (lo sacas con un shift) y lo metes en el nuevo array @ab.

O sea... que no lees el resto de argumentos, el resto de elementos del array de la llamada.

La solución es pasar el array como referencia:



Aquí te pongo mi solución:
La salida es: