installare moduli perl Mysql su windows:
ppm install dbi
ppm install dbd-mysql
BIOINFO3 - Lezione 1
1
GD Graphics Library
La libreria grafica gd permette di
creare facilmente e velocemente
immagini in modo dinamico. Uno
dei vantaggi maggiori di questa
libreria e` che puo` essere usata
direttamente dal Perl senza la
necessita` di richiamare altre
applicazioni.
BIOINFO3 - Lezione 1
2
Utilizzo di un modulo
use modulo;
Nel caso della libreria GD:
use GD;
Trovare e installare le librerie
Un modo semplice di installare librerie e` quello di usare il modulo CPAN.
Utilizzandolo in modo interattivo :
perl -MCPAN -e shell
install GD
BIOINFO3 - Lezione 1
3
BIOINFO3 - Lezione 1
4
Per creare una nuova immagine si usa la seguente sintassi:
$im = new GD::Image($width, $height)
E` possibile aprire un`immagine gia` esistente:
$im = new GD::Image->newFromPng($immagine);
$im = new GD::Image->newFromJpeg($immagine);
$width e $height rappresentano la larghezza e l`altezza dell`immagine. L`immagine viene salvata in
$im, che rappresenta un puntatore ad una struttura complessa simile a quella che abbiamo visto con i
moduli Mysql.
Creazione dei colori.
$white = $im->colorAllocate(255,255,255);
$black = $im->colorAllocate(0,0,0);
$red = $im->colorAllocate(255,0,0);
$blue = $im->colorAllocate(0,0,255);
I colori sono in RGB, la notazione e` decimale. I tre colori, Red, Green, Blue possono assumere valori
che variano da 0 a 255.
Il primo colore che viene definito e` quello che andra` a creare lo sfodo dell`immagine
BIOINFO3 - Lezione 1
5
open(PICTURE,>picture.png") or die("Cannot open file for
writing");
Setta la scrittura in un file in modo binario
binmode MYFILEHANDLE;
e` possibile decidere l`estensione (es gif, jpeg)
print PICTURE $im->png;
BIOINFO3 - Lezione 1
6
$im->arc(50,50,50,50,0,360,$black);
$im->fill(50,50,$red);
$im->arc(50,150,30,60,0,360,$black);
$im->fill(50,150,$blue);
$im->arc(50,250,60,30,0,360,$black);
$im->fill(50,250,$red);
$im->arc(150,50,50,50,0,180,$black);
$im->arc(150,150,30,60,90,270,$black);
$im->arc(150,250,30,60,270,90,$black);
I primi due parametri definiscono il centro
Il terzo la lunghezza dell`asse verticale
Il quarto dell`asse orizzontale
Il quinto ed il sesto l`angolo di partenza e l`angolo di arrivo
BIOINFO3 - Lezione 1
7
BIOINFO3 - Lezione 1
8
BIOINFO3 - Lezione 1
9
Disegnare del testo
Esistono due semplici funzioni per scrivere del testo:
# Disegna il testo
$im->string($font, $x, $y, $string, $color);
# Disegna il testo ruotato di 90 gradi
$im->stringUp($font, $x, $y, $string, $color);
$x e $y definiscono la coordinata dell`angolo superiore sinistro del
rettangolo che virtualmente contiene il testo
BIOINFO3 - Lezione 1
10
BIOINFO3 - Lezione 1
11
BIOINFO3 - Lezione 1
12
BIOINFO3 - Lezione 1
13
Creazione di Grafici utilizzando il modulo
GD::Graph
Uno script in perl che utilizza la libreria GD::Graph solitamente contiene:
-Dati come array di array
-Il tipo di grafico
$mygraph = GD::Graph::chart->new($width, $height);
dove chart puo` essere bars, lines, points, linespoints, mixed o pie.
Settare le opzioni necessarie al grafico. Questo implica definire il titolo,
un`etichetta per l`asse x e y ...
Disegnare il grafico usando la funzione plot
$myimage = $mygraph->plot(\@data);
BIOINFO3 - Lezione 1
14
BIOINFO3 - Lezione 1
15
BIOINFO3 - Lezione 1
16
Grafico a linee
BIOINFO3 - Lezione 1
17
BIOINFO3 - Lezione 1
18
BIOINFO3 - Lezione 1
19
BIOINFO3 - Lezione 1
20