#!/usr/bin/perl -w # le tableau @liste1 stocke les jours de la semaine qui est lundi, mardi,mercredi, jeudi, vendredi, samedi et dimanche @liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche"); #on affiche plusieurs fois le tableau @liste1 print "@liste1 \n"; print "affichage global : @liste1 \n"; print @liste1,"\n"; print "@liste1\n"; print "$#liste1"; print "taille de \@liste1 = $#liste1 \n"; print "son dernier élément est : $liste1[6] \n"; print "affichage de \@liste1, élément par élément :\n"; foreach my$sev (@liste1){ print "$sev \n"; }