Hoy quiero preguntarles ¿Cómo puedo hacer para generar una especie de plantilla que debería hacer una tabla con parámetros definidos por algún script?
Me explico: Tengo que generar ciertos correos que tienen información que debe presentarse en una tabla; actualmente se hace con un html demasiado básico. La idea es que estos correos se vean más agradables para las personas que los reciben, pero el problema más grande es que por cada reporte siempre se escribe el mismo código de la tabla html.
Lo que quisiera es armar una especie de librería o un script que genere dinámicamente, por ejemplo, las columnas, filas y, obviamente, el contenido de cada celda de una tabla. Con eso centralizaría la construcción de las tablas.
Investigué sobre el Módulo HTML::Table es el que más se acerca a lo que busco, pero no logro entender aún si es posible aplicar CSS usando el módulo. Tampoco sé de qué manera lo podría usar ya que no he visto ningún ejemplo.
¿Acaso es posible usar, por ejemplo, directorio: css, javascript, html, source en donde el source contiene un .pl que simplemente obtiene los datos que necesita de los otros directorios para escribir la tabla?
Ejemplo de lo que hago actualmente:
Using perl Syntax Highlighting
- foreach $row_v_query (@$v_query) {
- ( $UPBW, $StartDate, $EndDate, $SaleDate, $Estado ) = @$row_v_query;
- $i++;
- $mensaje .= "<table style='border:1px solid #CCC; '>
- <tr><td colspan='0'><b style='font-size:13px; color=#333'>EVENTO $i</b></td></tr>
- <tr><td><b>FECHA VENTA</b></td><td>$SaleDate</td></tr>
- <tr><td><b>FECHA INICIO</b></td><td>$StartDate</td></tr>
- <tr><td><b>FECHA FINALIZACION</b></td><td>$EndDate</td></tr>
- <tr><td><b>ESTADO ACTUAL</b></td><td>$Estado</td></tr>
- <tr><td><b>UP TEMPORAL</b></td><td>$UPBW</td></tr>
- </table><br>\n";
- $mensaje .= "<table style='clear:both; margin:40px; border:1px padding:9px'></table>\n";
- }
- $mensaje .= "$DATACAMBIO<br><br>";
- $mensaje .= "<table align='center' style='clear:both; margin:30px;
- border:1px padding:10px'></table>\n";
- $mensajetotal = "$mensajeinicio2 $mensajesaludo $mensaje $mensajefinal";
- }
- print "$destinatarios\n";
- send_mail( "Equipo de Gestion <gestion\@example.com>",
- "$destinatarios", '127.0.0.1', "EVENTO TEMPORAL $ACCION\ADO $CUSTOMER (SID=$SERVICEIDTEMP)", $mensajetotal );
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Y así está cada .pl.
Espero me puedan ayudar y, como siempre, de antemano gracias por la atención prestada
