Tabla dinámica HTML
Publicado: 2015-07-30 06:09 @298
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
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:
Using text Syntax Highlighting
- Miembro Nombre Apellido Apellido
- 2 Pedro Rodríguez Rodríguez
- 3 Sebastián Sánchez Pérez
- 3 Juan Martín Méndez
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Y como resultado final necesito que me presente una tabla HTML con la siguiente estructura:
Using text Syntax Highlighting
- Miembro principal Miembro ayudante
- Pedro Rodríguez Rodríguez Sebastián Sánchez Pérez
- Juan Martín Méndez
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
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.
Using perl Syntax Highlighting
- sub lee_miembros_en_la_BBDD() {
- my $sentencia, $rv, $resultado, $r_row, @row;
- @miembros_nombre = ();
- @miembros_apellido1 = ();
- @miembros_apellido2 = ();
- @colaboradores_nombre = ();
- @colaboradores_apellido1 = ();
- @colaboradores_apellido2 = ();
- $miembros_num = 0;
- # Leemos sus miembros constituyentes
- $sentencia = "SELECT miembro,nombre,apellido1,apellido2 FROM miembros WHERE grupo='$CodGrupo' ORDER BY orden";
- $rv = $dbh->prepare($sentencia);
- $resultado = $rv->execute; # Chequear el resultado
- if ( $resultado > 0 ) {
- # Existen miembros en el grupo
- $r_row = $rv->fetchall_arrayref;
- $rv->finish;
- for ( $i = 0 ; $i < $resultado ; $i++ ) {
- $miembros_num += 1;
- if ( $r_row->[$i][0] eq '2' ) {
- # pinta datos en tabla de los miembros principales
- }
- if ( @r_row->[$i][1] eq '3' ) {
- # pinta datos en la tabla de los miembros ayudantes
- }
- }
- }
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
¿Alguna sugerencia?
Un saludo.
Gonzalo