Section courante

Section administrative du site

WHILE

 Tandis que
Perl
  

Syntaxe

while(expression_vrai) {
   instruction_exécuté_si_vrai;
}

Paramètres

Nom Description
expression_vrai Ce paramètre permet d'indiquer l'expression de valeur booléenne autorisant l'exécution des instructions de la boucle
instruction_exécuté_si_vrai Ce paramètre permet d'indiquer les instructions simple ou composée à exécuter par la boucle

Description

Ce mot réservé permet de produire un compteur de boucle sur chacun des éléments.

Exemples

Cet exemple permet de montrer un simple boucle avec la variable «a» :

  1. #!/usr/bin/perl
  2.  
  3. my $a = 0;
  4. while($a < 10) {
  5.   print "a = " . $a . "\n";
  6.   $a++;
  7. }

on obtiendra le résultat suivant :

a = 0
a = 1
a = 2
a = 3
a = 4
a = 5
a = 6
a = 7
a = 8
a = 9

Cet exemple permet de rechercher un utilisateur dans un tableau haché :

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4.  
  5. my @users = ("smaltais","Sylvain Maltais","root","Administrateur","stremblay","Steve Tremblay");
  6. my $search = "stremblay";
  7. my $index = 0;
  8. my $item = "";
  9. while($item ne $search) {
  10.      $item = $users[$index];
  11.         $index++;
  12. }
  13. print $users[$index];

on obtiendra le résultat suivant :

a = 0
Steve Tremblay

Cet exemple permet d'afficher les caractères du code ASCII 32 à 127 inclusivement :

  1. #!/usr/bin/perl
  2.  
  3. use strict;
  4.  
  5. my $I = 32;
  6. while($I <= 127) {
  7.     print chr($I).",";
  8.     $I++;
  9. }

on obtiendra le résultat suivant :

,!,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,[,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,{,|,},~,&#127,

Références

La Bible Micro Application HTML & Développement Web, Stefan Munz, Wolfgang Nefzger, 2003, ISBN: 2-7429-2898-7, page 1050

Dernière mise à jour : Dimanche, le 18 octobre 2015