Foro - Perl en Español

Tengo el propósito de levantar un script donde un usuario pueda consultar vía web un gráfico estadístico respecto de la cantidad de reclamos que se hicieron entre un periodo (en base a una fecha inicio y otra fin)


y obtener algo como esto:


Y lo que tengo es lo siguiente:


Si no tengo parámetros, muestro la siguiente plantilla estadisticas_porcentuales.tmpl:


estadisticas_porcentuales2.tmpl:


Y con éste script (generador_grafico_circular) que es llamado desde estadisticas_porcentuales2.tmpl dónde solicito el gráfico (Content type: image/png).

NOTA: los parámetros los coloqué a mano simplemente a modo de mostrar un gráfico cualquiera donde se vea lo que quiero. La consulta a la DB aún no lo hice porque no sé desde dónde sería la mejor opción. Se me ocurre hacerla en éste pero los parámetros recibirlos de la primera plantilla, es decir, de estadisticas_porcentuales.tmpl, pero ¡¡¡NO SÉ CÓMO HACERLO!!!



He visto que puedo pasar parámetros con HTML::Template de la siguiente forma:


pero vamos, parece que no me sirve porque lo que yo deseo es TOMAR parámetros, ¡¡¡no PASARLES un VALOR!!!

¡¡¡¡Cualquier sugerencia es bienvenida!!!!

Hay varias soluciones...

A ver... partimos de un primer problema: recogida de datos.

Esto lo resolvemos con el primer programa: si no nos dan datos, presentamos la plantilla con todas las opciones, y terminamos.

Pero, ¿y si sí nos dan los datos? Pues que ya podemos hacer la consulta a la base de datos, generar el gráfico, rellenar la plantilla (que pueden ser una sola), y terminamos.

Bueno, ¿y cómo generamos el gráfico? Se trata de un proceso aparte al que le tenemos que dar una serie de parámetros para que lo genere. Esta es la solución que tienes ahora.

Pero... ¿y si metiéramos la generación del gráfico dentro del primer programa? Si acabamos de hacer la consulta a la base de datos, entonces tenemos toda la información para generar el gráfico. Pero... ¿y cómo lo mostramos o enlazamos desde la página web? Aquí hay un par de opciones...

La primera opción: guardamos el gráfico en disco, en un directorio conocido (/img/, por ejemplo), y le damos un nombre temporal. Ese nombre será lo que pongamos en la plantilla, en la parte de la imagen:

programa:
$t->param(IMAGEN => $nombre_imagen);

plantilla:
<img src="/img/<TMPL_VAR NAME=IMAGEN>" width="600" height="450" />

Esto tiene ventajas si sabemos que la información de la base de datos no va a cambiar (o no cambiará de forma frecuente): si creamos el nombre temporal de tal forma que siempre sea el mismo cuando el usuario hace la misma petición, entonces podemos preparar el programa para que no tenga que rehacer el mismo gráfico una y otra vez: se dará cuenta de que ya está generado y se saltará la parte de crearlo y guardarlo.

El inconveniente es que necesitamos un lugar para guardar el archivo, y el proceso de guardarlo a veces tarda mucho (comparado con otras operaciones, desde luego). Y que tenemos que borrar los gráficos, un día, pasado un tiempo o cuando caduque o cambie la información de la base de datos.

La segunda opción: enviar el gráfico en el mismo código HTML de la plantilla, lo que sería un gráfico incrustado.

programa:
use MIME::Base64;
$img = encode_base64($imagen_generada);
$t->param(IMAGEN => "data:img/png;base64,$img");

plantilla
<img src="<TMPL_VAR NAME=IMAGEN>" width="600" height="450" />

En este otro hilo, Cómo insertar imágenes GD con HTTP::Server::Simple está más detallado todo esto.


Si quieres seguir con la idea de los dos programas, entonces sigue el problema de cómo enviar información de uno a otro.

Una manera es usando la propia llamada de la generación del gráfico. En la segunda plantilla:

<img src="http://localhost/cgi-bin/generador_grafico_circular.pl?par=<TMPL_VAR NAME=PARAMETROS_IMAGEN>" alt="Estadísticas">

Y en el primer programa, le pasamos los valores:

$t->param(PARAMETROS_IMAGEN => "Oct 2003,Nov 2003,Dec 2003,Ene 2004,Feb 2004|547,2282,2798,2354,4326");

Con esto queda generada la página HTML. Cuando el navegador solicite la imagen, ejecutará el segundo programa, que habrá que modificar antes para que lea el parámetro par, y extraiga de él los campos y valores para generar el gráfico (fíjate que están separados por '|' y por ',', así que con un par de split(), resuelto).

Es obvio que la primera opción, la de tener un solo programa, es la más rápida.

Hay otra forma: persistencia. Consiste en guardar a disco una estructura con los datos necesarios para generar el gráfico. Y deben estar asociados con una sesión de usuario, para que cuando se ejecute el segundo programa, sepa qué gráfico debe generar según el usuario que está cargando la página.

Para hacer esto, se puede usar alguno de los módulos Cache (Cache::File, o el más moderno, Cache::FileCache).