DESS TIMH

Introduction au langage Perl

3. Tableaux, listes
   
   En Perl, les tableaux peuvent être utilisés comme des ensembles ou des listes.
   Toujours précédés du caractère « @ »
   @chiffres = (1,2,3,4,5,6,7,8,9,0);
   @fruits = ('amande','fraise','cerise');
   @alphabet = ('a'..'z');Les deux points signifient de "tant à tant"
   @a = ('a'); @nul = ();
   @cartes = ('01'..'10','Valet','Dame','Roi');

on fait référence à un élément du tableau selon son indice par :
$chiffres[1](=> 2)
$fruits[0] (=> 'amande')
REMARQUE : En Perl (comme en C) les tableaux commencent à l'indice 0

On peut affecter un tableau à un autre tableau :
@ch = @chiffres;
@alphanum = (@alphabet, '_', @chiffres);
=> ('a','b,',...,'z','_','1','2','3','4','5','6','7','8','9','0')
@ensemble = (@chiffres, 'datte', 'kiwi', 12.45);

Remarques :
On dispose d'un scalaire spécial : $#tableau qui indique le dernier indice du tableau (et donc sa
taille - 1) : $fruits[$#fruits] (=> 'cerise')
Possibilité de référencer une partie d'un tableau
@cartes[6..$#cartes]=> ('07','08','09','10','Valet','Dame','Roi')
@fruits[0..1]=> ('amande', 'fraise')

4. Tableaux indicés (ou associatifs)
   
   Ils sont toujours précédés du caractère % :
   %prix = ('amande'=>30, 'fraise'=>9, 'cerise'=>25);
   ou :
   %prix = (amande=>30, fraise=>9, cerise=>25);

En Perl 4 la notation est :
%prix = ('amande',30, 'fraise',9, 'cerise',25);

On référence ensuite un élément du tableau par : $prix{'cerise'}
(ou$prix{cerise})

Exemples:
%chiffre = ();
$chiffre{'un'} = 1;=> ou $chiffre{un} = 1;
print $chiffre{un};
$var = 'un'; print $chiffre{$var};

http://www.med.univ-rennes1.fr/~poulique/cours/perl/

(=> 25)

Page 4