Perl/Istruzioni particolari su blocchi o etichette: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
m ha spostato Linguaggio Perl/Le istruzioni:Istruzioni particolari su BLOCCO o ETICHETTA a Linguaggio Perl/Le istruzioni/Istruzioni particolari su BLOCCO o ETICHETTA: sottopaginazione più corretta |
sintassi codice colorata |
||
Riga 8:
Questa istruzione consente di terminare "prematuramente" un blocco o una etichetta.
<source lang=perl>
last ; # usato un blocco
last <ETICHETTA>; # indica di uscire rispetto quale etichetta
</source>
'''NOTA:'''Dato che l'uscita prematura da un blocco avviene a seguito di una scelta , si consiglia di leggere quanto riguarda le [[Linguaggio Perl/Le istruzioni:DECISIONALI|decisionali]] e i [[Linguaggio Perl/Le istruzioni:I CICLI|cicli]] per poter comprendere meglio gli esempi.
Line 15 ⟶ 17:
Vediamo questo esempio:
<source lang=perl>
my $b = 15;
my $stop = 17;
Line 31 ⟶ 34:
etichetta tre (b=16)
b=17
</source>
==== Redo ====
Questa istruzione consente di ritornare allo stesso punto di quando è iniziata l'ultima iterazione.
<source lang=perl>
redo ; # usato un blocco
redo <ETICHETTA>; # indica su quale etichetta
</source>
'''NOTA:'''Dato che l'uscita prematura da un blocco avviene a seguito di una scelta , si consiglia di leggere quanto riguarda le [[Linguaggio Perl/Le istruzioni:DECISIONALI|decisionali]] e i [[Linguaggio Perl/Le istruzioni:I CICLI|cicli]] per poter comprendere meglio gli esempi.
Line 43 ⟶ 50:
Vediamo questo esempio:
<source lang=perl>
my $b = 15;
my $stop = 17;
Line 52 ⟶ 60:
if ( $stop == $b and $ripetizioni > 0) { $ripetizioni--; redo ETICHETTA_TRE; }
$b++;
}
</source>
che produce :
etichetta tre (b=15 , r=3)
Line 61 ⟶ 71:
etichetta tre (b=18 , r=0)
etichetta tre (b=19 , r=0)
</source>
==== Next ====
Questa istruzione consente di "saltare" all'elemento successivo.
<source lang=perl>
next ; # usato un blocco
next <ETICHETTA>; # indica su quale etichetta
</source>
'''NOTA:'''Dato che l'uscita prematura da un blocco avviene a seguito di una scelta , si consiglia di leggere quanto riguarda le [[Linguaggio Perl/Le istruzioni:DECISIONALI|decisionali]] e i [[Linguaggio Perl/Le istruzioni:I CICLI|cicli]] per poter comprendere meglio gli esempi.
Line 72 ⟶ 85:
Vediamo questo esempio:
<source lang=perl>
my $b = 15;
my $stop = 17;
Line 81 ⟶ 95:
if ( $stop < $b and $ripetizioni > 0) { $ripetizioni--; next ETICHETTA_TRE; }
print " etichetta tre (b=$b , r=$ripetizioni)\n";
}
</source> che produce :
| |||