programmazione:perl:grafici_in_perl
Creare grafici in Perl
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 .
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:
gd-2.1.0-3 perl-gd-2.56-2 perl-chart-2.4.6-2
Il codice
#!/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')};
programmazione/perl/grafici_in_perl.txt · Ultima modifica: 08/05/2025 10:02 da 127.0.0.1