#!/usr/bin/perl -w
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche"); 
#on met chaque jour de la semaine dans le tableau
print "affichage global :\n";
print @liste1,"\n"; 
#affiche les éléments de la liste sans espace entre les éléments
print "@liste1\n"; 
#affiche les éléments de la liste avec des espaces entre les éléments
$taille1 = scalar @liste1; 
#scalar compte le nombre d'éléments
print "taille de \@liste1 = $taille1 \n";
$dernier=$liste1[$taille1-1];
#on met dans dernier, l'élément dont l'indice est égal à la taille de la liste -1 
#car si dimanche est le septième élément, il a un indice de 6
print "son dernier élément est : $dernier \n";
print "On énumère les éléments avec une boucle for\n";
for ($i=0; $i<$taille1; $i++) { 
#pour tous les éléments de la liste dont l'indice est compris 
#entre 0 et l'indice maximum du tableau, on fait : 
print "L'élément numéro $i est : $liste1[$taille1-(7-$i)]\n"; 
#on imprime chaque élément de la liste 
#$taille1 = 7, pour avoir l'élément d'indice 0, il faut faire 7 - 7
#comme au début $i vaut 0, on fait bien 7 - 7
}
print "On énumère les éléments avec une boucle foreach\n";
foreach $element (@liste1) {
print "Un élément de la liste : $element\n";
}

