|
 |
|
 |
On appelle structure conditonnelle les instructions qui permettent de tester si une condition est vraie ou non. Ces structures conditionnelles peuvent être associées à des structures qui se répètent suivant la réalisation de la condition, on appelle ces structures des structures de boucle
Une expression suivie d'un point-virgule est appelée instruction. Par exemple
$a++; est une instruction.
Les instructions if, while et for peuvent par exemple être suivies d'un bloc d'instructions à exécuter...
L'instruction if est la structure de test la plus basique, on la retrouve dans tous les langages (avec une syntaxe différente...). Elle permet d'exécuter une série d'instructions si jamais une condition est réalisée. La syntaxe de cette expression est la suivante:
if (condition réalisée) {
liste d'instructions;
}
else {
liste d'instructions;
}
Remarques:
if ((condition1)||(condition2))
L'instruction if dans sa forme basique ne permet de tester qu'une condition, or la plupart
du temps on aimerait pouvoir choisir les instructions à exécuter en cas de non réalisation
de la condition...
La syntaxe de cette expression est la suivante:
if (condition réalisée) {
liste d'instructions;
}
else {
autre série d'instructions;
}
Il est possible de faire un test avec une structure beaucoup moins lourde grâce à la structure suivante, appelée opérateur ternaire: (condition) ? instruction si vrai : instruction si faux Remarques:
L'instruction if ... else ne permet de tester qu'une condition, or il est
parfois nécessaire de tester plusieurs conditions de
façon exclusive, c'est-à-dire que sur toutes les conditions une seule
sera réalisée ...
La syntaxe de cette expression est la suivante:
if (condition réalisée) {
liste d'instructions;
}
elsif (autre condition réalisée) {
autre série d'instructions;
}
...
else (dernière condition réalisée) {
série d'instructions;
}
Perl propose l'instruction unless, qui permet d'exécuter une instruction seulement si la condition associée est fausse. La syntaxe de cette expression est la suivante:
unless (condition non réalisée) {
liste d'instructions
}
Les boucles sont des structures qui permettent d'exécuter plusieurs fois la même
série d'instructions jusqu'à ce qu'une condition ne soit plus réalisée...
L'instruction for permet d'exécuter plusieurs fois la même série d'instructions: c'est une boucle! Dans sa syntaxe, il suffit de préciser le nom de la variable qui sert de compteur (et éventuellement sa valeur de départ, la condition sur la variable pour laquelle la boucle s'arrête (basiquement une condition qui teste si la valeur du compteur dépasse une limite) et enfin une instruction qui incrémente (ou décrémente) le compteur. La syntaxe de cette expression est la suivante:
for (compteur; condition; modification du compteur) {
liste d'instructions
}
Par exemple:
for ($i=1; $i<6; $i++) {
printf("%d", $i);
}
Cette boucle affiche 5 fois la valeur de i, c'est-à-dire 1,2,3,4,5 Elle commence à $i=1, vérifie que i est bien inférieur à 6, etc... jusqu'à atteindre la valeur i=6, pour laquelle la condition ne sera plus réalisée, la boucle s'interrompra et le programme continuera son cours. D'autre part, le langage Perl autorise la déclaration de la variable de boucle dans l'instruction for elle-même! Par exemple:
for ($i=0; $i<10; $i++) {
printf("%d", $i);
}
L'instruction while représente un autre moyen d'exécuter plusieurs fois la même série d'instructions. La syntaxe de cette expression est la suivante:
while (condition réalisée) {
liste d'instructions
}
Cette instruction exécute la liste d'instructions tant que (while est un mot anglais qui signifie tant que) la condition est réalisée.
L'instruction until est similaire à l'instruction while, à la différence près que le test est inversé. La syntaxe de cette expression est la suivante:
until (condition non réalisée) {
liste d'instructions
}
L'instruction foreach permet d'effectuer une boucle qui parcourt une liste. A chaque tour de boucle, l'élément de la liste est affecté à la variable $VAR. LISTE peut par exemple être un tableau, dont l'instruction foreach va parcourir les enregistrements. La syntaxe de cette expression est la suivante:
foreach $VAR (LISTE) {
liste d'instructions;
}
Il peut être nécessaire de faire sauter à la boucle une ou plusieurs valeurs sans pour autant mettre fin à celle-ci. La syntaxe de cette expression est "next;" (cette instruction se place dans une boucle!), on l'associe généralement à une structure conditionnelle, sinon les lignes situées entre cette instruction et la fin de la boucle seraient obsolètes. Elle est très proche de l'instruction continue du langage C. Exemple: Imaginons que l'on veuille imprimer pour $x allant de 1 à 10 la valeur de 1/($x-7) ... il est évident que pour $x=7 il y aura une erreur. Heureusement, grâce à l'instruction nexte il est possible de traiter cette valeur à part puis de continuer la boucle!
#!/usr/local/bin/perl
$x=1;
while ($x<=10) {
if ($x == 7) {
printf("Division par zéro!\n");
next;
}
$a = 1/($x-7);
printf("%d", $a);
$x++;
}
Il y avait une erreur dans ce programme... peut-être ne l'avez-vous pas vue:
#!/usr/local/bin/perl
$x=1;
while ($x<=10) {
if ($x == 7) {
printf("division par 0");
$x++;
next;
}
$a = 1/($x-7);
printf("%d", $a);
$x++;
}
A l'inverse, il peut être voulu d'arrêter prématurément la boucle, pour une autre conditon que celle précisé dans l'en-tète de la boucle. L'instruction last permet d'arrêter une boucle (for ou bien while). Il s'agit, tout comme newt, de l'associer à une structure conditionnelle, sans laquelle la boucle ne ferait jamais plus d'un tour! Dans l'exemple de tout à l'heure, par exemple si l'on ne savait pas à quel moment le dénominateur ($x-7) s'annule (bon...OK...pour des équations plus compliquées par exemple) il serait possible de faire arrêter la boucle en cas d'annulation du dénominateur, pour éviter une division par zéro!
for ($x=1; $x<=10; $x++) {
a = $x-7;
if ($a == 0) {
printf("division par 0");
last;
}
printf("%d", 1/$a);
}
|
