Fonction de rétablissement de Perl

La description

Cette fonction redémarre la boucle en cours sans forcer l'instruction de contrôle à être évaluée. Aucune autre instruction du bloc n'est exécutée. Un bloc continue, s'il est présent, ne sera pas exécuté. Si LABEL est spécifié, l'exécution redémarre au début de la boucle identifiée par LABEL.

Syntaxe

Voici la syntaxe simple de cette fonction -

redo LABEL

redo

Valeur de retour

Cette fonction ne renvoie aucune valeur.

Exemple

Voici l'exemple de code montrant son utilisation de base -

#!/usr/bin/perl -w

$c = 1;
$d = 4;
LABEL: {
   $c++;
   $e = 5;
   redo LABEL if ($c < 3);
   $f = 6;
   last LABEL if ($e > 3);
   $g = 7;
}
$h = 8;
print ("$c $d $e $f $g $h\n");

Lorsque le code ci-dessus est exécuté, il produit le résultat suivant -

3 4 5 6  8