DESS TIMH

Introduction au langage Perl

5. Remarques

1. Perl5 autorise les combinaisons, comme un tableau de tableaux
   :
   
   %saisons = (
   'abricot'=>['été'],
   'fraise'=> ['printemps','été'],
   'pomme'=>['automne','hiver'],
   'orange'=> ['hiver'],
   'cerise'=> ['printemps'],
   'amande'=> ['printemps','été','automne','hiver']);

ou

@departements = (
['Ain', 'Bourg-en-Bresse', 'Rhône-Alpes'],
['Aisne', 'Laon', 'Picardie'],
...
['Yonne', 'Auxerre', 'Bourgogne']);

Et l'on accédera à la région du Finistère, ou à la préfecture d'Ille et Vilaine par
$departements[29 - 1][2], $departements[35 - 1][1]
(On retranche un car l'indice des tableaux commence toujours à 0)

2. Pas de booléens (comme en langage C)
   
   On utilise des entiers sachant que 0 est évalué comme étant faux (en fait il s'agit de la chaîne de
   caractère vide) et 1 comme étant vrai.

3. Tableaux à deux dimensions
   
   On peut utiliser les tableaux indicés pour simuler des tableaux à 2 (ou n) dimensions :
   %table_multiplication = ('1,1'=>1, '1,2'=>2, ...,
   '9,8'=>72,'9,9'=>81);

$traduction{'amande','anglais'} = 'almond';
$traduction{'amande','italien'} = 'amoria';
$traduction{'cerise','anglais'} = 'cherry';

On peut également utiliser les tableaux de tableaux de Perl 5 pour le faire :
@table_multiplication = (
[ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0],# Multiplié par 0
[ 0, 1, 2, 3, 4, 5, 6, 7, 8, 9],# Multiplié par 1
[ 0, 2, 4, 6, 8,10,12,14,16,18],# Multiplié par 2
...
[ 0, 9,18,27,36,45,54,63,72,81]);# Multiplié par 9

On référencera alors 2*6 par $table_mult[6] [2]

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

Page 5