|
Una lista in Perl è
semplicemente un insieme ordinato di scalari. Una lista può contenere
numeri, stringhe o anche un misto di entrambi questi tipi di dato. In
effetti in Perl la differenza tra una lista ed un array è molto
sottile, tanto che potremmo dire che se assegnamo un nome ad una lista
ciò che otteniamo è un array. Più che altro la distinzione, ben
marcata in altri linguaggi di programmazione, in Perl riguarda
soprattutto il modo in cui vengono utilizzati certi insiemi di dati.
Una lista viene definita elencandone gli elementi, come, ad esempio:
('cani', 'gatti', 'cavalli', 'pesci')
(1, 2, 3, 4, 5, 47, 1.34, 12)
Come abbiamo già visto possiamo inizializzare un array con il
contenuto di una lista con la seguente istruzione:
@animali = ('cani', 'gatti', 'cavalli', 'pesci');
Gli elementi di una lista possono essere ordinati alfabeticamente
utilizzando l'istruzione sort; ad esempio, la seguente istruzione ci
permette di ordinare il contenuto dell'array @animali appena definito:
@animali = sort @animali;
Cogliamo l'occasione per elencare tre importanti istruzioni che
consentono di effettuare delle operazioni elementari sulle liste.
L'istruzione shift restituisce il primo elemento della lista e lo
elimina dalla lista stessa. L'operatore pop restituisce invece
l'ultimo elemento della lista e lo elimina dalla lista. Infine
l'operatore push inserisce un elemento al termine della lista.
Veniamo ora al tipo di dato più importante in Perl, gli array
associativi; citando Larry Wall (l'autore del Perl) si può dire che se
non si pensa in termini di array associativi non si sta pensando in
Perl.
Un normale array ci permette di ``puntare'' ai suoi elementi usando
numeri interi come indici. Un array associativo ci permette di fare la
stessa cosa utilizzando delle stringhe come indici (o chiavi, in
questo caso). Visto che spesso gli elementi dell'array sono stringhe,
in questo modo possiamo associare tra loro coppie di stringhe: il dato
vero e proprio e la chiave (o l'indice) che lo identifica all'interno
dell'array.
Un array associativo è una lista di valori come ogni altro array,
salvo che per il fatto che invece di indicizzare l'array mediante la
posizione di ogni elemento, si indicizza ogni coppia di valori dell'array
mediante il primo elemento della coppia.
Ad esempio supponiamo di voler tenere conto del numero di giorni di
ogni mese dell'anno (supponiamo anche di non essere in un anno
bisestile); il seguente programmino potrebbe aiutarci:
#!/usr/local/bin/perl
# giorni.pl: dato il nome di un mese ne stampa il
# numero di giorni
%giorni = ('gennaio', 31, 'febbraio', 28, 'marzo', 31, 'aprile', 30,
'maggio', 31, 'giugno', 30, 'luglio', 31, 'agosto', 31,
'settembre', 30, 'ottobre', 31, 'novembre', 30,
'dicembre', 31);
print "mese: ";
$mese = <STDIN>;
chop($mese);
print "$mese ha $giorni{$mese} giorni.\n";
In maggiore dettaglio possiamo dire che ci si riferisce ad un array
associativo con il simbolo ``%'' (e non con la chiocciola ``@'', come
per i normali array o le liste); il singolo elemento dell'array
associativo (che, come al solito è uno scalare) è individuato dalla
chiave associata; così il terzo elemento dell'array associativo
definito nell'esempio precedente (31, il numero di giorni del mese di
marzo) è individuato dall'espressione $giorni{'marzo'}.
La funzione chop usata dopo aver letto un input da file, serve ad
eliminare il carattere di fine riga dalla variabile che contiene
l'input (nel nostro caso la variabile $mese).
Osserviamo infine che la funzione keys() restituisce una lista con le
chiavi dell'array associativo passato come argomento, in modo da
consentirci di operare sugli elementi dell'array nell'ordine
desiderato. La funzione values() effettua l'operazione complementare:
restituisce una lista con i valori degli elementi dell'array
associativo passato come argomento.
Lezione
successiva => Torna
all'indice
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti