# parcours d'une liste
	# Récupérer le programme suivant, essayer de l'exécuter, si nécessaire corriger et compléter. 


#!/usr/bin/perl -w
@liste1 = ("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche"); # il faut absolument ajouter des guillemets pour les chaînes de caractères, ainsi que des virgules pour les séparer
print "affichage global :\n"; 
print @liste1,"\n"; # pour afficher tout élément de la liste, un par un 
print "@liste1\n"; # pour afficher tout élément séparé l'un de l'autre par un blanc
print "taille de liste1 = ", $#liste1+1, "\n"; # on ajoute la variable $# qui donne le numéro du dernier élément du tableau
print "son dernier element est : $liste1[-1]\n";
print "affichage de liste1, element par element :\n";
print "\navec une boucle foreach :\n";
foreach $element (@liste1){		# foreach permet de parcourir l'ensemble du tableau 
	print "$element\n";}


