Declaración de rehacer de Perl

los redoEl comando reinicia el bloque de bucle sin evaluar el condicional nuevamente. Puede proporcionar una ETIQUETA conredodeclaración donde LABEL es la etiqueta de un bucle. UNredo La declaración se puede utilizar dentro de un bucle anidado donde será aplicable al bucle más cercano si no se especifica un LABEL.

Si hay alguno continue bloque en el bucle, entonces no se ejecutará antes de evaluar la condición.

Sintaxis

La sintaxis de un redo declaración es la siguiente:

redo [LABEL]

Diagrama de flujo

Ejemplo

El siguiente programa muestra el uso de redo declaración -

#/usr/local/bin/perl
   
$a = 0;
while($a < 10) {
   if( $a == 5 ) {
      $a = $a + 1;
      redo;
   }
   print "Value of a = $a\n";
} continue {
   $a = $a + 1;
}

Esto produciría el siguiente resultado:

Value of a = 0
Value of a = 1
Value of a = 2
Value of a = 3
Value of a = 4
Value of a = 6
Value of a = 7
Value of a = 8
Value of a = 9