• Publicidad

Graficar desde un archivo de texto

Todo lo relacionado con el desarrollo Web con Perl: desde CGI hasta Mojolicious

Graficar desde un archivo de texto

Notapor 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
4326
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4


CÓDIGO
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. #!/usr/bin/perl -w
  2.  
  3. use strict;
  4. use CGI ':standard';
  5. use GD::Graph::bars;
  6. open(LISTA, "lista.txt");
  7. while ($p = <LISTA>)
  8. {
  9. my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
  10. my @valores = "$p";
  11. my @graf = (\@campos, \@valores);
  12.  
  13. my $grafico = GD::Graph::bars->new(500, 300);
  14.  
  15. $grafico->set(
  16. x_label => 'Mes',
  17. y_label => 'Visitas Totales',
  18. title => 'Visitas Mensuales de "Perl en Español"',
  19. ) or warn $grafico->error;
  20.  
  21. my $imagen = $grafico->plot(\@graf) or die $grafico->error;
  22.  
  23. print "Content-type: image/png\n\n";
  24. print $imagen->png;
  25. exit(1);
  26. }
  27. close(LISTA);
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4


Gracias por su ayuda.
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Publicidad

Re: Graficar desde un archivo de texto

Notapor alejandrolea » 2010-09-29 11:57 @540

Hola, creo que era muy sencillo:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. use strict;
  2. use CGI ':standard';
  3. use GD::Graph::bars;
  4.  
  5. open(LISTA,"lista.txt");
  6. my @campos = ('Oct 2003','Nov 2003','Dec 2003','Ene 2004','Feb 2004');
  7. my @valores = (<LISTA>);
  8. my @graf = (\@campos, \@valores);
  9.  
  10. my $grafico = GD::Graph::bars->new(500, 300);
  11.  
  12. $grafico->set(
  13. x_label => 'Mes',
  14. y_label => 'Visitas Totales',
  15. title => 'Visitas Mensuales de "Perl en Españ',
  16. ) or warn $grafico->error;
  17.  
  18. my $imagen = $grafico->plot(\@graf) or die $grafico->error;
  19.  
  20. print "Content-type: image/png\n\n";
  21. print $imagen->png;
  22. exit(1);
  23. close(LISTA);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4



Lo siento y gracias a todos.
alejandrolea
Perlero nuevo
Perlero nuevo
 
Mensajes: 7
Registrado: 2008-01-18 18:14 @801

Re: Graficar desde un archivo de texto

Notapor 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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Web

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 7 invitados