Autore: Fabio Di Matteo
Ultima revisione: 10/02/2015 - 09:32

Vedremo in questo articolo come creare dei grafici in Perl grazie al modulo Chart Chart .

Per l'installazione far conto che Chart richiede le librerie GD quindi installarle prima. Nel mio caso ho installato i seguenti pacchetti su Gnu/Linux:

 gd-2.1.0-3  perl-gd-2.56-2  perl-chart-2.4.6-2

#!/usr/bin/perl
 
 
#Installazione
#per l'installazione è statto necessario installare su linux i seguenti
#pacchetti: gd-2.1.0-3  perl-gd-2.56-2  perl-chart-2.4.6-2
 
use Chart::Bars; #(tipi di grafico disponibili: Points, Lines, Bars, LinesPoints, Composite,
				 #StackedBars, Mountain, Pie, HorizontalBars, Split, ErrorBars, Pareto, Direction) 
 
my $chart = new Chart::Bars(600, 400);
$chart->set('title' => 'Temperature di quest\' anno', 'x_label' => 'Mesi', 'y_label' => 'Temperature (*F)', );
 
#Il primo dataset imposta le etichette dei valori sull'ascissa
$chart->add_dataset('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul','Aug', 'Sep', 'Oct', 'Nov', 'Dec');
 
#Gli altri dataset sono i valori nell'ordinata
$chart->add_dataset(46, 50, 56, 61, 67, 73, 79, 79, 74, 63, 51, 46);
$chart->add_dataset(37, 39, 41, 44, 49, 53, 57, 58, 55, 48, 42, 37);
 
#Definisco un'array per i nomi dei dataset
@labels = ('Milano', 'Roma');
$chart->set ('legend_labels' => \@labels);
 
#Per settare alcune proprieta', in questo caso il colore dei dataset  
my %property;
$property{'colors'} = {'dataset0' => [173, 216, 230], 'dataset1' => [78, 0,255]};
$chart->set(%property);
 
#Salva il grafico in un file d'immagine PNG
$chart->png('grafico.png');
 
#Visualizza il png con il programma predefinito
if ($^O=='MSWin32') { system('start grafico.png')};
if ($^O=='linux') { system('eog grafico.png')};