#!/usr/bin/perl/ -w
#########################################
# DESCRIPTION : Manipulation de listes [Etape 1, exercice 3-2]
#########################################
@alpha = ('a'..'z');						# on assigne au tableau @alpha l'ensemble des lettres compris entre a et z
@liste = (@alpha, 0..9);					# on assigne au tableau @liste le contenu du tableau @alpha suivi de l'ensemble des chiffres de 0 à 9
$el = $liste[3];							# on assigne à la variable $el la valeur du quatrième élément de @liste (soit 'd')
print "$el\n";
($a, $b, $c, @reste) = @liste;				# on assigne les trois premiers éléments de @liste aux variables $a $b $c et le reste du tableau (de 'd' à 9)  à la liste @reste
print "\$a = $a, \$b = $b, \$c = $c, \@reste = @reste\n";
$el = pop (@liste);							# on enlève le dernier élément de @liste (soit 9) de la liste et on l'assigne comme valeur de $el
print "\$el = $el, \@liste = @liste\n";
$el = shift (@liste);						# on enlève le premier élément de @liste (soit a) de la liste et on l'assigne comme valeur de $el
print "\$el = $el, \@liste = @liste\n";
print "\@alpha est la liste : \n@alpha\n";	# va renvoyer l'ensemble des lettres compris entre a et z
for ($i=0 ; $i<26 ; $i++){					# boucle qui va tourner 26 fois...
unshift @alpha, $el;}						# ...et ajouter à chaque fois la valeur de $el (soit 'a') au début du tableau
print "\@alpha est maintenant :\n@alpha\n";