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

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

Hay algunos detalles sueltos que no están claros.

Dices que hay que recorrer la tabla de forma recursiva, pero no nos dices cómo se para esa recursividad.

Y tampoco tengo claro lo que quieres decir con "asociar el campo".

¿Podrías poner un ejemplo completo? Uno cortito sería interesante.

Y más interesante será ver el código que estás probando.

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.

Hummm... mejor



Incluso mejor es usar el módulo Data::Dumper::Names, aunque no viene instalado por defecto

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.

Quien te ha dado la pista para recorrer el hash ha sido wladif. Y también tiene razón en el tema de que no tienes que preocuparte en "preparar" un hash para recibir los datos: el hash le puedes crear a medida de que vas leyendo la información.

A ver si se me ocurre un ejemplo...

¡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.

Bueno, el asunto es bastante complejo, o es que me he liado y no he encontrado una buena solución.

El caso es que el problema no está completamente descrito porque no se indica si las claves se mezclan entre sí. Quiero decir si las claves de la tabla, el camino que seguimos entre ellas, se intersecta con más de una clave principal.

Es decir, que podamos querer tener esto:
$hash{1}{2}{3}{4} = $vardelatablacuentas;

y esto, a la vez:
$hash{1}{2}{3} = $vardelatablacuentas;

Un hash no puede tener dos valores asociados a la misma clave (en el ejemplo, 3).

El siguiente ejemplo está montado con alfileres, así que seguro que no te sirve para tu problema, pero al menos sirve para ver lo complicado del asunto.

Si tenemos este fichero de texto, haciendo el papel de base de datos:

entonces, con este programa:

sale:

que sí es una estructura de hash de hash, pero dudo que sea esto lo que realmente quieres.

Unos detalles sobre el programa:

• El programa lee toda la base de datos a memoria, para no tener que hacer consultas de forma continuada para averiguar los datos de las claves que vamos siguiendo
• No indicas qué valor se ha de guardar en la estructura, así que he puesto la de descripción
• La columna nivel no se usa para nada
• Digo que esto está montado con alfileres, porque si las líneas de la base de datos las leo en otro orden (quitar el comando sort{}), sale algo como esto:
  
  Sintáxis: [ Descargar ] [ Ocultar ]

  Sintáxis: [ Descargar ] [ Mostrar ]

  Using text Syntax Highlighting

  %hash = (
            '8' => {
                     '9' => {
                              '10' => 'hhhhh'
                            }
                   },
            '1' => {
                     '2' => {
                              '3' => {
                                       '4' => 'xxxxx'
                                     }
                            }
                   },
            '7' => 'sssss',
            '5' => 'wwwww'
          );

  Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
  El '6' y el '11' no están, porque son eliminados al ser sustituidos por claves posteriores.

Esto requiere más investigación, pero sería interesante ver un resultado real (aunque sea con datos falsos).

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.