Foro - Perl en Español

Hola, muy buenos días a todos.

Tengo la siguiente duda y no he podido dar con la solución y me gustaría contar con sus comentarios y ayuda. Tengo que hacer un hash, pero este hash debe ser de n niveles, es decir, puede contener n keys, ya que esto lo debo sacar de una tabla que es recursiva.

Me explico mejor: tengo una tabla que es recursiva, es decir se llama a sí misma. Lo que debo hacer es hacer un hash según las n veces que se llame a sí misma.

Hagamos de cuenta que es una tabla padre, pero en su misma tabla están sus hijos. Es una tabla de configuración y como no sé cuántos niveles puedan existir entonces debo crear este hash.

$hash{papa}{hijo}{nieto};

pero se puede dar el caso que el papá no tenga hijos o no tenga nietos.

$hash{papa};
$hash{papa}{hijo};

Cuando ya tenga este hash armado, ahora debo recorrerlo. Pero eso no es todo. Debo también asociar el campo que quiera registrar al papá, al hijo o al nieto que corresponda.

Supongamos que hay dos hijos, uno con id 2 y otro con id 1. El hijo con id 2 tiene a su vez dos hijos más, y el hijo con id 1 solo tuvo 1 hijo (o sea un nieto para el papá). No sé si me hago entender.

La verdad, no encuentro solución a este problema. he intentado con cualquier ciclo, for(), while(), foreach(), pero no encuentro la lógica adecuada para hacerlo. Soy muy nuevo en Perl y sé que ustedes me pueden ayudar en esto.

Se los agradezco de antemano.

Cordial saludo

Qué pena, la verdad se me pasó.

Bueno, lo de asociar al campo me refiero al dato que tenga este registro en la base de datos. Me explico mejor.

Tengo que consultar unas cuentas de unos clientes y obtener unos registros de esa tabla; estas cuentas tienen el campo pcelementobalanceid que me indica a qué pcelementobalance corresponde. Supongamos que la tabla cuentas tiene un pclementobalanceid 4; ahora debo armar la consulta a la tabla pcelementobalance con el id que me devuelve la tabla de cuentas.



Supongamos que aquí consulto al id 4 de la tabla pcelementobalance, pero la tabla tiene un campo que se llama así mismo (pcelementobalanceid), en este caso es 3, así que ahora debo consultar el 3 y así sucesivamente hasta que pclementobalance sea igual a vacío, es decir, el último nivel. Pero, al encontrar este registro, entonces esto me indica que debe ir un nivel en el hash, por ejemplo:

$hash{1}{2}{3}{4} = $vardelatablacuentas

pero ahora sigo con la otra cuenta y ésta tiene un pcelementobalanceid = 3, entonces se hace el mismo proceso, así que quedaría más o menos así:

$hash{1}{2}{3} = $vardelatablacuentas

el 1 sería el último nivel, el 2 el que tiene como pcelementobalanceid = 1, el 3 el que tiene pcelementobalanceid = 2 y así sucesivamente. No sé si ahora sea vea un poco más claro...

La verdad, del código no llevo mucho, pues no se me ocurre cómo hacerlo:



Probablemente no encuentres clara esta sentencia; solo cambié la sintaxis de las consultas a SQL estándar porque aquí en el trabajo utilizan un motor totalmente diferente y utilizan algo más XML. Las consultas SQL que puse ahí solo las reemplazo según la sintaxis que maneja el motor de la empresa, así que no te preocupes si las sentencias no las ves claras.

Te agradezco mucho tu ayuda y por sobretodo la disposición que tienes, muchas gracias.

Me imagino que algo así es lo que necesitas para recorrer tu hash.

Para alimentarlo, no hay mucha complejidad. Si tienes un padre con un hijo, solo pon

$h{$padre}{$hijo} = 1;

El 1 sólo define que tiene algo, podrías usar un 0, un puntero a un array, un string, una referencia a una función, lo que quieras;

$h{$padre}{$hijo}{$nieto} = 1;

define finalmente lo que necesitas.

Por ejemplo:

$h{'Juan'}{'Pedro'}{'Diego'} = 1;

indica que Diego es hijo de Pedro que es hijo de Juan.

El hash se 'arma' solo. Ahora, si necesitas ver el contenido de tu hash, pon esto al comienzo de tu programa:



Luego, cuando hayas llenado tu hash, si deseas ver cómo queda armado, solo pon:



Y listo, tendrás tu estructura de hash impresa por consola de una forma bastante clara.

Hola Joaquín, muchísimas gracias por tu gran ayuda y colaboración. La verdad, no me queda muy claro.

Entiendo lo que me quieres decir de recorrer los hash pero como lo planteas siempre habrán 3 niveles, padre, hijo y nieto. Pero ¿y en el caso de que hayan más niveles? ¿o menos? En este caso el hash sería dinámico, ¿verdad? ¿o estoy perdido? Porque como yo lo veo no sé cuántos niveles vaya a tener en el hash, ¿cómo se haría para crearlo con n niveles según el número de consultas que se hagan hasta llegar al pcelementobalanceid sea vacío? ¿Sí me hago entender?

De antemano, te agradezco muchísimo la ayuda y la presteza que has tenido en esta solución. Perdona por ser tan intenso, gracias.

¡Uy! ¡Qué pena con ustedes, wladif! ¡Muchísimas gracias por tu ayuda! Y a ti, Joaquín te agradecería, bueno, más de lo que ya me has ayudado, te agradecería tu colaboración con un ejemplo; la verdad estoy un poco perdido ahora.

Se los agradezco.

Hola Joaquín. La verdad, sin palabras, muchísimas, muchísimas gracias. Me has dado mucho en qué pensar. Y sí, como tú dices, faltaron muchos detalles más, pero con lo que me has dicho me has ayudado muchísimo. Te lo agradezco infinitamente.

En el ejemplo que puse lo que hice estuvo mal, pues como tú dices, no especifiqué si se sobreescribían los índices o no, y la verdad, creo que independientemente de lo que hagamos se sobreescriben estos últimos, ¿verdad?

Voy a seguir trabajando en esto. Y tenlo por seguro que tan pronto como lo tenga terminado lo publicaré, para que tu lo veas y para ayuda y conocimiento de los demás. Tú me ayudaste, así que es justo que los demás se beneficien de lo que compartes.

Cordial saludo.