Foro - Perl en Español

por **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?

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

lista.txt

547

2282

2798

2354

4326Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

CÓDIGO

Sintáxis: [ Descargar ] [ Ocultar ]

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);
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Gracias por su ayuda.

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);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo siento y gracias a todos.

por **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.

Foro - Perl en Español

Graficar desde un archivo de texto

Graficar desde un archivo de texto

Publicidad

Re: Graficar desde un archivo de texto

Re: Graficar desde un archivo de texto

¿Quién está conectado?