#!/usr/bin/perl/ -w
#########################################
# DESCRIPTION : Parcours d'une liste [Etape 1, exercice 3-1]
#########################################
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche") ;	# correction : ajout de guillemets (obligatoires pour les variables de type chaîne de caractères) et de virgules (obligatoires pour séparer les éléments d'une liste)
print "Affichage global :\n";
print @liste1,"\n";		# commentaire : affiche le contenu du tableau en bloc
print "@liste1\n";		# commentaire : affiche chaque élément du tableau séparément
print "La taille de \@liste1 est : $#liste1\n";		# la variable $# donne le numéro du dernier élément du tableau, si on veut le nombre d'élément il suffit de lui ajouter 1 (voir ligne suivante --ajoutée)
$nbrel = $#liste1+1;
print "Le nombre d'éléments de \@liste1 est : $nbrel\n";
print "Son dernier élément est : $liste1[6]\n";
print "Affichage élément par élément :\n";
foreach $element (@liste1){		# commentaire : parcours de l'ensemble du tableau avec une boucle foreach
	print "$element\n";}