Ver Tema

alejandrolea · 2010-09-29 11:30 @520

Buenos días
Sigue la guía para para crear gráficas con Perl:
http://perlenespanol.com/tutoriales/gra ... _perl.html

¿Me puede dar una sugerencia de cómo meter valores desde un archivo de texto ya que no lo he conseguido ya que me genera una gráfica por valor y yo quiero una gráfica con todos los valores?

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

lista.txt

547

2282

2798

2354

4326

CÓDIGO

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use strict;
use CGI ':standard';
use GD::Graph::bars;
open(LISTA, "lista.txt");
while ($p = <LISTA>)
{
my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = "$p";
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;
 
print "Content-type: image/png\n\n";
print $imagen->png;
exit(1);
}
close(LISTA);

Gracias por su ayuda.

alejandrolea · 2010-09-29 11:57 @540

Hola, creo que era muy sencillo:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use strict;
use CGI ':standard';
use GD::Graph::bars;
 
open(LISTA,"lista.txt");
my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
my @valores = (<LISTA>);
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Ã±',
) 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);
close(LISTA);

Lo siento y gracias a todos.

explorer · 2010-09-29 12:03 @543

Al contrario, nos alegramos de que hayas encontrado la solución por ti mismo, y que además compartieras tu solución con todos nosotros.

Gracias a ti.

Publicidad

Socializa