Función de rehacer de Perl

Descripción

Esta función reinicia el bucle actual sin forzar la evaluación de la instrucción de control. No se ejecutan más sentencias en el bloque. Un bloque de continuación, si está presente, no se ejecutará. Si se especifica LABEL, la ejecución se reinicia al comienzo del bucle identificado por LABEL.

Sintaxis

A continuación se muestra la sintaxis simple para esta función:

redo LABEL

redo

Valor devuelto

Esta función no devuelve ningún valor.

Ejemplo

A continuación se muestra el código de ejemplo que muestra su uso básico:

#!/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");

Cuando se ejecuta el código anterior, produce el siguiente resultado:

3 4 5 6  8