Funzione Perl redo

Descrizione

Questa funzione riavvia il ciclo corrente senza forzare la valutazione dell'istruzione di controllo. Non vengono eseguite ulteriori istruzioni nel blocco. Un blocco continue, se presente, non verrà eseguito. Se viene specificato LABEL, l'esecuzione viene riavviata all'inizio del ciclo identificato da LABEL.

Sintassi

Di seguito è riportata la semplice sintassi per questa funzione:

redo LABEL

redo

Valore di ritorno

Questa funzione non restituisce alcun valore.

Esempio

Di seguito è riportato il codice di esempio che mostra il suo utilizzo di 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");

Quando viene eseguito il codice sopra, produce il seguente risultato:

3 4 5 6  8