Etape 1
Exercice 3++Le parcours d'une liste.
- Une fois que ce programme est récupéré, exécutons le .
- Quand on exécute directement ce programme dans cygwin voici ce que l'on obtient :
>> Ici une erreur est indiquée. En effet, nous n'avions pas une liste dans @liste1 , il faut séparer les mots par des virgules et comme nous avons des chaines de caractères il faut mettre des guillemets.
- Avec les modifications dans emacs voici ce que l'on obtient :
- Et dans cygwin nous obtenons :
++ Manipulation de listes
- Commentaires et prévisions des différentes instructions
#!/usr/bin/perl -w #ceci est le chibang, il doit figurer au début de chaque script
@alpha = ('a'..'z'); @liste = (@alpha,0..9);
# ici on crée des listes qui rendront tout l'alphabet de a à z (dans la liste alpha) et dans la liste « liste » ca rendra tout l'alphabet et les chiffres de 0 à 9
$el = $liste[3]; # rend le 3ème élément de la liste et l'enlève
print
"$el\n"; #
rend d
($a,
$b, $c, @reste) = @liste ; #ici
on met le premier élémenty de la liste dans la
variable $a, le 2ème
élément de la liste ds $b, le 3ème
élément de la liste ds $c et
tout le reste de la liste dans $reste
print
"\$a= $a, \$b= $b, \$c =$c , \@reste= @reste\n"; #
ca rendra donc a pour le premier élément de la
liste, b pour le
deuxième élément de la liste, c pour
le 3ème et
defghijklmnopqrstuvwxuyz0123456789 dans reste
($b,
$a)= ($a, $b); #
ici on va mettre ce qui était contenu dans $a dans $b et ce
qui
était dans $b dans $a
print
"\$a= $a, \$b= $b \n"; #ici
on imprime les nouveaux résultats
$el
= pop @liste; #ici
grâce à l'option pop on prend le dernier
élément de la liste (9)
et on le supprime
print
"\$el= $el, \@liste= @liste\n";#ici
on imprime le dernier élément de la liste et on
imprime ensuite la
nouvelle liste qui ne contient plus le dernier
élément
$el
= shift @liste;#
ici on supprime le premier élément de la liste et
le supprime
(a)
print
"\$el= $el, \@liste= @liste\n"; #
on imprime le premier élement et ensuite on imprime la liste
sans le
premier élément qui a été
supprimé juste avant
print
"\@alpha est la liste \n@alpha\n"; #ici
on imprime tt l'alphabet
for
($i=0; $i<26 ; $i++) {
$el=
pop @alpha; #
supprime le dernier élément de la liste
unshift
@alpha, $el; #unsift
rajoute un élément au début de la
liste @alphe sans rien écraser,
ici on lui indique qu'on veut rajouter ce qui est contenu dans la
variable $el qui contient le dernier élément de
la liste
}
print
"\@alpha est maintenant \n@alpha\n"; # ici on imprime ce qui
est contenu dans alpha
- Le résultat dans cygwin B20 est :
