Estoy checando el tutorial que tienen aquí sobre cómo crear gráficos con el modulo GD::Graph, pero con un pequeño cambio: no quiero generar un CGI, si no crear un archivo .png. Mi código es este:
Using perl Syntax Highlighting
- #! /usr/local/bin/perl5.10.0
- use strict;
- use GD::Graph::bars;
- 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);
- $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;
- open OUT, ">grafica.png" or die "No puedo crear el fichero grafica.png: $!\n";
- print OUT $imagen->png;
- close OUT;
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
El programa corre bien y me genera el archivo, el problema es que al querer abrir el archivo grafica.png en Windows no me muestra el gráfico.
Saludos.