====== Creare grafici in Perl ======
Autore: **//Fabio Di Matteo//** \\ Ultima revisione: **//10/02/2015  - 09:32//** \\ \\

{{:programmazione:perl:grafico.png?400|}}


Vedremo in questo articolo come creare dei grafici in Perl grazie al modulo Chart [[http://search.cpan.org/dist/Chart/Chart.pod|Chart]] .

===== Installazione del modulo  =====
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:
<file> gd-2.1.0-3  perl-gd-2.56-2  perl-chart-2.4.6-2</file>

===== Il codice =====
<code Perl>
#!/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')};

</code>