Le langage Perl

L’instructions de controle redo

redo : redo LABEL : repetition de l’iteration de la boucle identiﬁee par LABEL redo : lorsque LABEL est omis, la commande se refere a la boucle englobante la plus profonde
S’il y a un bloc continue, il est execute.
42/85 Sovanna Tan Le langage Perl
Ressources Intro. ´El´em. du lang. Op´e. Struct. de contrˆole Fonc. Modules Expr. regulieres E/S Fonc. utiles
Exemple avec redo
Saisie d’une chaˆıne de caract`ere non vide sur l’entr´ee standard : #!/usr/bin/perl use strict; use vars qw($name); print ’What is your name ? ’; LINE: { chomp($name=<STDIN>); if(! length($name)) { print(« Msg: Zero length input. Please try again\n »); redo LINE; } } print ’Your name is ’,$name, »\n »; # What is your name? # Msg: Zero length input. Please try again # What is your name? Tan # Your name is Tan

Recapitulation next, last, redo

while (EXPR) { ### redo vient toujours ici do_something; } continue { ### next vient toujours ici do_something_else; # puis retour au sommet pour rev´erifier EXPR } ### last vient toujours ici
44/85 Sovanna Tan Le langage Perl
Ressources Intro. Elem. du lang. Ope. Struct. de controle Fonc. Modules Expr. regulieres E/S Fonc. utiles

L’instruction eval

eval EXPR; L’expression est parcourue puis executee. eval BLOC Le bloc est parcouru une seule fois a la compilation et execute.
eval BLOC n’est pas considere comme une boucle, on ne peut pas utiliser les instructions de controle de boucle next, last et redo.
$z=eval ’$OSNAME’; # ´equivalent `a $z=$OSNAME print $z, « \n »; # # linux