Foro - Perl en Español

Hola a todos, de nuevo.

Una duda de novato (y creo que de muy novato, ¡ja,ja,ja!), tengo una base de datos en MySQL, esta tiene tres tablas, relacionadas con un id único.

Ahora quiero consultar la tabla1, y por cada elemento de ella que esté en tabla2 y tabla3 quiero que los muestre.

Creo una conexión a tabla1, 2 y 3. Con while() me recorro toda la tabla1 y con otros while() dentro del primer while() para recorrer las otras tablas. Pero no consigo lo esperado, lo que espero es una lista como esta:

He probado múltiples opciones y no doy con ello, si me pueden ayudar, de antemano, muchas gracias.

Hola.

Humm, me parece que estás pasando por alto el poder de las consultas de MySQL, deberías de hacer una consulta para hacer lo que quieres. Por ejemplo:

Y ya después puedes hacer:


Para más detalles acerca de este tipo de consultas, checa el siguiente artículo:
http://www.informit.com/articles/articl ... Num=5&rl=1


Saludos

Gracias por la respuesta.

De hecho en ese tipo de consulta no tengo problemas. No es cosa de consultas, quizás me expliqué (como de costumbre mal).

Ese tipo de consulta me devuelve el autor tantas veces aparezca y ese no es problema. El problema radica (y por eso lo puse en foro de perl básico y no en el de BD) al momento en que quiero mostrar la información por pantalla. No quiero que salga

sino que imprima

Sigo pegándome con el código a ver si lo consigo, ¡ja,ja,ja!

De nuevo, gracias.

Hola.

Muy bien, entonces lo que puedes hacer es que primero cuando hagas la consulta te ordene todo por autor, entonces ya después puedes hacer algo así:


Entonces te imprime el autor solamente cuando sea diferente al anterior, así no te repite una y otra vez el mismo autor.


Saludos

Saludos y muchas gracias.

P.D.: ¿Era una consulta de Perl o de DB? ¡ja,ja,ja!

Hum... Si entendí bien el problema supongo que se trata de generar ( en este caso una salida ) conjuntos con llaves únicas y múltiples valores, es decir, un autor y diversas direcciones.

Si las prestaciones no son tan importante para este problema, es decir, si no es una cantidad enorme de registros, una solución podría ser.

De esa manera puedes transportar los datos si los requieres después. Cabe señalar que esta solución no es recomendada si la cantidad de tuplas existentes son muchas ( igual hablamos de más de 100 000 posiblemente ) puesto que hay que generar una estructura que guarde tal información. Pero tampoco es TAN dramáticamente lenta.

Saludos,

Perl user, Maestro Honorario.

La respuesta es muy buena, de hecho por ahí iban mis intentos de hacerlo.

Claro mi banco de datos tiene más de un millón de duplas, y sólo tengo 512 de RAM. La respuesta de Kidd es también muy buena.

Gracias y Saludos.

Hola, quizás podrias echarle un vistazo al módulo Class::DBI, es muy buena ayuda para manejar BD, prácticamente te olvidas de escribir código SQL

Saludos