Différences

Ci-dessous, les différences entre deux révisions de la page.

--- perl:tests_if_until [2009/03/15 00:45] – créée root
+++ perl:tests_if_until [2013/03/12 23:41] (Version actuelle) – root
@@ Ligne 1: / Ligne 1: @@
-== 1. If, else, elsif ==
+====== Tests ======
+====== 1. If, else, elsif ======
 La structure des tests et des expressions booléennes en Perl est une fois de plus très similaire à ce que l'on trouve en C :
- if ($i > 0) {
+<code perl>
-   print "$i est strictement positif\n";
+  if ($i > 0) {
- }
+  print "$i est strictement positif\n";
+  }
+</code>
 Comme pour les boucles, on peut également profiter de l'inversion de la syntaxe: dans ce cas le bloc disparait au profit d'une seule instruction, et les parenthèses deviennent également facultatives :
- print "$i est un entier strictement positif\n" if $i < 0;
+<code perl>
+  print "$i est un entier strictement positif\n" if $i < 0;
+</code>
 Pour proposer une branche alternative :
- if ($i >= 0) {
+<code perl>
-   print "$i est positif";
+  if ($i >= 0) {
- } else {
+  print "$i est positif";
-   print "$i est négatif";
+  } else {
- }
+  print "$i est négatif";
+  }
+</code>
-Par contre si l'on veut évaluer plusieurs branches (exclusives) en cascade, il y a le mot clé spécifique ''elsif'' :
+Par contre si l'on veut évaluer plusieurs branches (exclusives) en cascade, il y a le mot clé spécifique //elsif// :
- if    ($i  > 0) { print "$i est strictement positif"; }
+<code perl>
- elsif ($i == 0) { print "$i est nul"; }
+  if ($i > 0) { print "$i est strictement positif"; }
- else            { print "$i est négatif"; }
+  elsif ($i ====== 0) { print "$i est nul"; }
+  else { print "$i est négatif"; }
+</code>
-C'est une erreur de syntaxe d'utiliser la construction ''else if...''! Ce choix de langage est principalement issu du C où la distinction des imbrications ou des cascades sont la plupart du temps délicates :
+C'est une erreur de syntaxe d'utiliser la construction //else if...//! Ce choix de langage est principalement issu du C où la distinction des imbrications ou des cascades sont la plupart du temps délicates :
-== 2. Opérateur ternaire ==
+====== 2. Opérateur ternaire ======
 Encore un emprunt du C, il doit son nom à sa spécificité: c'est le seul opérateur utilisant 3 opérandes. Cette expression :
- my $signe = ($i >= 0) ? "positif" : "négatif";
+<code perl>
+  my $signe = ($i >= 0) ? "positif" : "négatif";
+</code>
 ... est équivalente à cette construction :
+<code perl>
+  my $signe;
+  if ($i >= 0) { $signe = "positif"; } else { $signe = "négatif"; }
+</code>
- my $signe;
+====== 3. Expressions booléennes ======
- if ($i >= 0) { $signe = "positif"; } else { $signe = "négatif"; }
+===== Opérateurs de comparaison =====
-== 3. Expressions booléennes ==
+^ **Numérique** ^ **Chaîne** ^ **Description** ^
+| < | lt | strictement inférieur|
-=== Opérateurs de comparaison ===
+| <= | le | inférieur ou égal|
+| > | gt | strictement supérieur|
-{| bgcolor="#f7f8ff" cellpadding="3" cellspacing="0" border="1" style="font-size: 95%; border: gray solid 1px; border-collapse: collapse;"
+| >= | ge | supérieur ou égal|
-|- bgcolor="#f3fff3"
+| == | eq | identique|
-| '''Numérique'''
+| != | ne | différent|
-| '''Chaîne'''
+| <=> | cmp | comparaison (pour le tri)|
-| '''Description'''
-|-
-| <  || lt || strictement inférieur
-|-
-| <= || le || inférieur ou égal
-|-
-| >  || gt || strictement supérieur
-|-
-| >= || ge || supérieur ou égal
-|-
-| == || eq || identique
-|-
-| != || ne || différent
-|-
-| <=> || cmp || comparaison (pour le tri)
-|}
 Quelques exemples illustrant la différence entre les deux contextes :
-{| bgcolor="#f7f8ff" cellpadding="3" cellspacing="0" border="1" style="font-size: 95%; border: gray solid 1px; border-collapse: collapse;"
+^ **Numérique** ^ **Chaîne** ^
-|- bgcolor="#f3fff3"
+| "a" < "b" est **faux** | "a" lt "b" est **vrai**|
-| '''Numérique'''
+| "-1.5" < "1" est **vrai** | "-1.5" lt "1" est **faux**|
-| '''Chaîne'''
-|-
-| "a" < "b" est '''faux''' || "a" lt "b" est '''vrai'''
-|-
-| "-1.5" < "1" est '''vrai''' || "-1.5" lt "1" est '''faux'''
-|}
-Notes sur ''cmp'' et ''<=>'' : ces opérateurs sont utiles pour définir une relation d'ordre entre des éléments d'une liste, et donc en particulier les trier. Ce type d'opérateur se comporte comme suit :
+Notes sur //cmp// et //<=>// : ces opérateurs sont utiles pour définir une relation d'ordre entre des éléments d'une liste, et donc en particulier les trier. Ce type d'opérateur se comporte comme suit :
-{| bgcolor="#f7f8ff" cellpadding="3" cellspacing="0" border="1" style="font-size: 95%; border: gray solid 1px; border-collapse: collapse;"
+^ **Si...** ^ **Alors $a <=> $b vaut**^
-|- bgcolor="#f3fff3"
+| $a < $b | -1|
-| '''Si...''' || '''Alors $a <=> $b vaut'''
+| $a ====== $b | 0|
-|-
+| $a > $b | 1|
-| $a < $b  || -1
-|-
-| $a == $b || 0
-|-
-| $a > $b  || 1
-|}
-=== Valeurs booléennes des scalaires ===
+===== Valeurs booléennes des scalaires =====
 Parfois on prend des raccourcis et on convertit un scalaire directement en valeur booléenne. Il existe donc une convention pour savoir si un scalaire est vrai ou faux :
-* si le scalaire n'est pas défini ou est une chaine vide, il est '''faux'''
+  * si le scalaire n'est pas défini ou est une chaine vide, il est **faux**
-* si le scalaire est un entier nul, il est '''faux'''
+  * si le scalaire est un entier nul, il est **faux**
-* dans tous les autres cas il est '''vrai'''
+  * dans tous les autres cas il est **vrai**
 Exemples :
-{| bgcolor="#f7f8ff" cellpadding="3" cellspacing="0" border="1" style="font-size: 95%; border: gray solid 1px; border-collapse: collapse;"
+^ **Valeur scalaire** ^ **Valeur booleenne ** ^
-|- bgcolor="#f3fff3"
+| undef | faux|
-| '''Valeur scalaire''' || '''Valeur booleenne444
+| 0 | faux|
-|-
+| "0" | faux|
-| undef || faux
+| "00000" | vrai|
-|-
+| "bonjour" | vrai|
-|| 0 || faux
+| -5 | vrai|
-|-
-| "0" || faux
-|-
-| "00000" || vrai
-|-
-| "bonjour" || vrai
-|-
-| -5 || vrai
-|}
-'''Note''': le contexte d'une expression booléenne est toujours scalaire, donc une liste sera considérée comme son nombre d'éléments.
+**Note**: le contexte d'une expression booléenne est toujours scalaire, donc une liste sera considérée comme son nombre d'éléments.
-=== Opérateurs logiques ===
+===== Opérateurs logiques =====
 On peut combiner le résultat des tests précédents, ou des valeurs booléennes tels que décrites ci-dessus à l'aide des opérateurs logiques similaires au C, doublés de leur nom en clair (comme en shell) :
-{| bgcolor="#f7f8ff" cellpadding="3" cellspacing="0" border="1" style="font-size: 95%; border: gray solid 1px; border-collapse: collapse;"
+^ **Opérateur** ^ **Description**^
-|- bgcolor="#f3fff3"
+| &&, and | ET logique|
-| '''Opérateur''' || '''Description'''
+| <nowiki>|, or</nowiki> | OU logique|
-|-
+| xor | OU exclusif logique|
-| &&, and || ET logique
+| !, not | négation logique (opérateur unaire)|
-|-
-| <nowiki>||, or</nowiki> || OU logique
-|-
-| xor || OU exclusif logique
-|-
-| !, not || négation logique (opérateur unaire)
-|}
-=== Evaluation partielle ===
+===== Evaluation partielle =====
 Cette technique est très populaire en Shell, et également parfois utilisée en programmation C. Elle repose sur le fait que les opérations logiques ET et OU peuvent avoir un résultat défini avec la valeur d'une seule opérande dans certains cas:
-* '''A and B''': si A est faux, alors le résultat est faux (B n'est pas évalué)
+  * **A and B**: si A est faux, alors le résultat est faux (B n'est pas évalué)
-* '''A or B''': si A est vrai, alors le résultat est vrai (B n'est pas évalué)
+  * **A or B**: si A est vrai, alors le résultat est vrai (B n'est pas évalué)
 On trouve ainsi très souvent ce genre de construction en Perl :
- open(FILE, "<source.txt") or die("Erreur d'ouverture ($!)");
+  open(FILE, "<source.txt") or die("Erreur d'ouverture ($!)");
-Comme la plupart des fonctions Perl renvoient un état booléen dépendant de leur bonne exécution, la partie droite ''or die...'' n'est évaluée que si la partie gauche est fausse.
+Comme la plupart des fonctions Perl renvoient un état booléen dépendant de leur bonne exécution, la partie droite //or die...// n'est évaluée que si la partie gauche est fausse.
-== 4. Tests sur les fichiers ==
+====== 4. Tests sur les fichiers ======
-Perl a emprunté les facilités du Shell pour effectuer des tests directement sur des fichiers, ce qui est très pratique et évite d'utiliser une bibliothèque de programmation fastidieuse (se référer à ''file test'' dans ''man perlfunc''). Exemple :
+Perl a emprunté les facilités du Shell pour effectuer des tests directement sur des fichiers, ce qui est très pratique et évite d'utiliser une bibliothèque de programmation fastidieuse (se référer à //file test// dans //man perlfunc//). Exemple :
- my $file = "source.txt";
+<code perl>
- die "Fichier $file non présent" if (!-e $file);
+  my $file = "source.txt";
+  die "Fichier $file non présent" if (!-e $file);
+</code>
 Pour référence, voici les tests extrait de la documentation de Perl :
-{| bgcolor="#f7f8ff" cellpadding="3" cellspacing="0" border="1" style="font-size: 95%; border: gray solid 1px; border-collapse: collapse;"
+^ -r ^ File is readable by effective uid/gid.^
-| -r  || File is readable by effective uid/gid.
+| -w | File is writable by effective uid/gid.|
-|-
+| -x | File is executable by effective uid/gid.|
-| -w  || File is writable by effective uid/gid.
+| -o | File is owned by effective uid.|
-|-
+| |
-| -x  || File is executable by effective uid/gid.
+| -R | File is readable by real uid/gid.|
-|-
+| -W | File is writable by real uid/gid.|
-| -o  || File is owned by effective uid.
+| -X | File is executable by real uid/gid.|
-|-
+| -O | File is owned by real uid.|
-| ||
+| |
-|-
+| -e | File exists.|
-| -R  || File is readable by real uid/gid.
+| -z | File has zero size (is empty).|
-|-
+| -s | File has nonzero size (returns size in bytes).|
-| -W  || File is writable by real uid/gid.
+| | |
-|-
+| -f | File is a plain file.|
-| -X  || File is executable by real uid/gid.
+| -d | File is a directory.|
-|-
+| -l | File is a symbolic link.|
-| -O  || File is owned by real uid.
+| -p | File is a named pipe (FIFO), or Filehandle is a pipe.|
-|-
+| -S | File is a socket.|
-| ||
+| -b | File is a block special file.|
-|-
+| -c | File is a character special file.|
-| -e  || File exists.
+| -t | Filehandle is opened to a tty.|
-|-
+| | |
-| -z  || File has zero size (is empty).
+| -u | File has setuid bit set.|
-|-
+| -g | File has setgid bit set.|
-| -s  || File has nonzero size (returns size in bytes).
+| -k | File has sticky bit set.|
-|-
+| | |
-| ||
+| -T | File is an ASCII text file (heuristic guess).|
-|-
+| -B | File is a "binary" file (opposite of -T).|
-| -f  || File is a plain file.
+| | |
-|-
+| -M | Script start time minus file modification time, in days.|
-| -d  || File is a directory.
+| -A | Same for access time.|
-|-
+| -C | Same for inode change time (Unix, may differ for other platforms)|
-| -l  || File is a symbolic link.
-|-
-| -p  || File is a named pipe (FIFO), or Filehandle is a pipe.
-|-
-| -S  || File is a socket.
-|-
-| -b  || File is a block special file.
-|-
-| -c  || File is a character special file.
-|-
-| -t  || Filehandle is opened to a tty.
-|-
-| ||
-|-
-| -u  || File has setuid bit set.
-|-
-| -g  || File has setgid bit set.
-|-
-| -k  || File has sticky bit set.
-|-
-| ||
-|-
-| -T  || File is an ASCII text file (heuristic guess).
-|-
-| -B  || File is a "binary" file (opposite of -T).
-|-
-| ||
-|-
-| -M || Script start time minus file modification time, in days.
-|-
-| -A || Same for access time.
-|-
-| -C || Same for inode change time (Unix, may differ for other platforms)
-|}