perl | operador de rehacer

El operador de rehacer en Perl se reinicia desde la etiqueta dada sin evaluar la declaración condicional. Una vez que se llama a rehacer, no se ejecutarán más declaraciones en ese bloque. Incluso un bloque de continuación, si está presente, no se ejecutará después de la llamada de rehacer. Si se proporciona una etiqueta con el operador de rehacer, la ejecución comenzará desde el ciclo especificado por la etiqueta.

Sintaxis: rehacer etiqueta

Devoluciones:
Sin Valor

Ejemplo 1:

#!/usr/bin/perl -w
  
$a = 1;
  
# Assigning label to loop
GFG: {
   $a = $a + 5;
   redo GFG if ($a < 10);
}
  
# Printing the value
print ($a);

11

Ejemplo 2 (Rehacer un bucle):

#!/usr/bin/perl -w
  
$a = 1;
  
# Assigning label to loop
$count = 1;
GFG: while($count < 10) {
   $a = $a + 5;
   $count++;
   redo GFG if ($a < 100);
}
  
# Printing the value
print ("$a $count");

101 21