GD::Graph

Este paquete permite hacer diagramas y gráficas para representar datos numéricos de manera sencilla. Puedes obtenerlo en CPAN y deberás instalar el paquete GD antes de instalar GD::Graph, aunque este es un ejemplo de paquete que puede dar problemas al instalar, porque requiere a su vez otros componentes. Pero dada su utilidad creo que vale la pena el trago.

La documentación para explotar este paquete la encontráis en GD::Graph, en CPAN.

Aquí tenéis el código para hacer un diagrama X/Y de dos variables numéricas, que se muestra en el archivo ejemplo.png:

#!/usr/bin/perl -w 
# Ejemplo escrito por Bruno Contreras Moreira

use strict;
use GD::Graph::lines;

my @datos = (
[-3,-2,-1,0,1,2,3],            # variable X
[.2,.4,1.9,2.4,1.2,.3,.3]      # variable Y
);

# crea un nueva instancia
my $grafica = new GD::Graph::lines();

# configura el diagrama
$grafica->set( 
	x_label           => 'sigma',
	y_label           => 'frecuencia',
	title             => 'Ejemplo de gráfica X/Y'
) or die $grafica->error;

my $diagrama = $grafica->plot( \@datos );


open(GRAF_PNG,">ejemplo.png") || die "no puedo crear ejemplo.png\n";
binmode GRAF_PNG;
print GRAF_PNG $diagrama->png();
close(GRAF_PNG);