Foro - Perl en Español

Hola a todos.

Después de algún tiempo vuelvo con Perl, porque tengo que modificar un algoritmo que se hizo en su momento. Os cuento:

Tengo una base de datos con unos nombres y la pertenencia a un tipo, de la siguiente forma:


Y como resultado final necesito que me presente una tabla HTML con la siguiente estructura:

en la que vaya capturando los datos de la base de datos y dinámicamente vaya pintando los datos en una celda u otra de la tabla. La conexión a la base está hecha al principio del programa.

Principalmente estoy atascado en ordenar los datos según el tipo de miembro y en pintarlo en HTML.



¿Alguna sugerencia?

Un saludo.
Gonzalo

Podrías usar dos variables escalares que vayan almacenando el código HTML de cada una de las celdas, según el código sea '2' o '3'.

if ( $r_row->[$i][0] eq '2' ) { $celda1 .= $r_row->[$i][1] . "\n"; }

Después del bucle, creas la tabla con el contenido de esas dos variables:

$tabla = "<table>\n<tr><td>$celda1</td><td>$celda2</td></tr></table>";

Hola, explorer.

Muchas gracias, voy a probar a ver si sale.

Un saludo,
Gonzalo

Hola a todos.

Al final no me funciona, le he dado muchas vueltas, y el problema que tengo es que el código me genera filas sin datos. Es decir, si tengo 15 filas, 8 con el valor 2 para miembro y 7 con el valor 3 para miembro. El algoritmo me genera 15 filas en vez de 8 que sería el número máximo de ítem que tengo para un valor.

Y no se me ocurre cómo modificar el código para que sólo imprima el número máximo de celdas en cada momento, para cada grupo de valores.

No sé si me he explicado.

Un saludo,
Gonzalo

Se trata solo de encontrar la prueba lógica.

Yo he hecho la siguiente prueba.

Con este archivo de entrada (como si fuera la base de datos):
y con el siguiente programa:
la salida es:
que, más o menos, sale así:

Hola a todos.

Después de muchos meses vuelvo a la carga.

Perfecto, pero hay una línea del código que no entiendo que hace y es:

No comprendo cómo "calcula" la posición dentro de la fila, es decir, el . ¿A qué hace referencia?

Un saludo,
Gonzalo

La primera columna de los datos, según el formato que nos has presentado, puede ser un 2 o un 3, e indica la posición del miembro en la fila (está en la primera columna o la segunda.

Entonces, la línea
lo que hace es convertir el valor de $miembro (2 o 3) a un valor para $posicion (0 o 1).

Quizás hubiera sido más claro usar la palabra $columna, en lugar de $posicion.

Luego, la línea siguiente se hace la pregunta ¿el $miembro es un 2 o ya existe una persona en la columna donde tenemos que pintar? Es decir: ¿tenemos la certeza de que tenemos que pintar un nombre en la primera columna o, de cualquier forma, la columna donde vamos a pintar el nombre ya está ocupada por otro nombre? Si ese es el caso, es que ese nombre debe ir en una nueva fila.

Para ello creamos una nueva fila de tabla, pintamos los nombres de la @fila -recolectados antes-, y ponemos la @fila a cero. Y luego, en la línea 33 guardamos -en su $posicion- el nuevo nombre.

Es resumen:
- si nos viene un miembro de tipo 2, siempre creamos una nueva fila de tabla y lo ponemos en la primera columna
- si nos viene un miembro de tipo 3, lo ponemos en la segunda columna, salvo que ya lo hayamos hecho antes con un miembro anterior, en cuyo caso, antes creamos una nueva fila de tabla.

Es prácticamente igual a resolverlo con lápiz y papel salvo que aquí usamos @fila para guardar temporalmente los nombres, y luego sacarlos todos a la vez, por filas, cuando sabemos que el siguiente nombre debe aparecer en la siguiente.

Gracias por la respuesta. Ya está solucionado.

Ahora, por mera curiosidad, me gustaría hacerlo de otra manera. Ya tengo diferenciado en la base de datos los distintos tipos de miembros. Y me gustaría determinar para cada grupo de miembros, qué tipo es el que tiene mayor número de ítems y a partir de ese valor generar el número de filas de la tabla, para poder introducirlo. Por ejemplo,

Para obtener lo siguiente


Lo primero que pensaba hacer era determinar el número de valores de cada tipo que tengo. Eso ya lo he hecho con una consulta SQL. Mi siguiente idea era asignar esa consulta a un hash, para poder comparar los dos valores e imprimir en número de filas (vacías) del que tenga mayor número de ítems y luego pintar el resultado.

Con la consulta SQL obtengo los siguientes datos:

pero no logro dar con la solución para asignar el resultado de la consulta a un hash. ¿Alguna idea?

Un saludo,
Gonzalo

Con el siguiente programa
se obtiene la salida deseada. Pero falta información, como por ejemplo el ancho de todas las columnas. Por eso, $sindato está puesta tal cual se pide a la salida, sin calcular cuántos campos y de qué ancho son.

Y para vuestro problema con el hash, habría primero que saber qué información queréis guardar en él y cómo. La consulta SQL da unos valores, que son las dimensiones que necesita vuestra tabla de datos: dos columnas y siete filas (digo siete porque hay que sacar el máximo de la columna Número de esa consulta). A partir de ahí podrías poblar la tabla de datos y luego pintarla.

Hola, explorer.

¡¡¡Muchas gracias!!! Disculpa por la pésima explicación.

Te amplío la información, la consulta SQL, obtiene el número de filas que se le asignaría a cada tipo de dato, con la siguiente solicitud: select miembro, count(*) as num from miembros group by miembro order by count(*) desc;

Con lo que obtengo para cada ocasión cuántos datos hay para el tipo 2 y cuántos para el tipo 3.

En el caso de arriba serían 3 filas para el tipo 2 y 7 filas para el tipo 3.

La información que querría guardar en el hash serían los valores para cada tipo en cada momento para luego compararlos. Es decir, para un momento, el tipo 2 serían 3 filas y para el tipo 3, 7 filas. Entonces comparo el hash y digo, como 7 es mayor que 5, pinto 7 filas y las lleno los los nombres y apellidos de los individuos, para los dos tipos. Y el que tenga menor número de filas lo completo con celdas vacías.

Un ejemplo:

En otra ocasión los datos podrían ser 5 filas para el tipo 2 y 2 filas para el tipo 3. Entonces compararíamos: como 5 es mayor que 2, se pintan 5 filas y se llenan todos los datos del tipo 2 y los tres datos del tipo 3, y los demás hasta completar los 5 datos con valores nulos.



No sé si me he liado mucho, y se entiende bien. O existe una forma más simple de hacerlo.

Un saludo y gracias,
Gonzalo