Foro - Perl en Español

por **Hector Gutierrez** » 2011-05-09 17:28 @769

Siguiendo el tutorial de graficación del foro, compiló el programa correctamente y al ejecutarlo obtengo una serie de caracteres ilegibles y no entiendo qué tengo que hacer. El programa es:

#!/usr/bin/perl -w

use strict;
use CGI ':standard';
use GD::Graph::bars;

# <img src="http://localhost:8080/Perl Express/sripts/Grafica de barras.cgi" alt="Visitas Mensuales"> ;

# Defino los arreglos y la matriz
my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = ('547','2282','2798','2354','4326');
my @graf = (\@campos, \@valores);

my $grafico = GD::Graph::bars->new(500, 300); # new(ancho,alto)

$grafico->set(
x_label => 'Mes',
y_label => 'Visitas Totales',
title => 'Visitas Mensuales de "Perl en Español"',
) or warn $grafico->error;

my $imagen = $grafico->plot(\@graf) or die $grafico->error;

print "Content-type: image/png\n\n";
print $imagen->png;
exit(1);

Los caracteres ilegibles que ves es el contenido del gráfico generado.

Ese programa es un ejemplo de creación de un gráfico png que es devuelto al navegador del usuario, como respuesta a una petición de este tipo, dentro de una página HTML:

<img src="http://localhost:8080/Perl Express/sripts/Grafica de barras.cgi" alt="Visitas Mensuales">

Es decir: dentro de un HTML, podemos tener una marca <img> que haga una petición a nuestro programa /Perl Express/sripts/Grafica de barras.cgi.

El navegador del usuario, al leer el HTML, verá que ahí, en esa posición, debe ir una imagen. Coge la dirección del href, y la solicita al servidor web. Éste, al ver que es un cgi, lo ejecuta. Al ejecutar el programa, éste devuelve la imagen png al servidor web, y éste lo devuelve al navegador del usuario, mostrando la imagen dentro de la página.

Otra forma de trabajar con este módulo, es grabando el resultado en un fichero local, no como si fuera un CGI, sino un programa normal y corriente. Para eso, solo tienes que abrir en escritura, y en binario, el nombre del fichero a crear, pintar allí el png generado, y ya está.

Foro - Perl en Español

Gráficas de barras

Gráficas de barras

Publicidad

Re: Gráficas de barras

¿Quién está conectado?