Chiudiamo questo capitolo riportando altre due istruzioni che possono
risultare utili se utilizzate in modo oculato all'interno di un cliclo.
L'istruzione next forza il Perl a saltare alla successiva iterazione
del ciclo, senza eseguire le rimanenti istruzioni del blocco.
L'istruzione last invece termina l'esecuzione di un ciclo facendo
saltare il flusso del programma alla prima istruzione successiva al ciclo
stesso.
Vediamo con un esempio un possibile utilizzo di queste due potenti
istruzioni. Supponiamo di voler leggere il contenuto di un file e di volerne
stampare solo le prime 20 linee saltando però tutte le linee vuote. Le linee
stampate dovranno anche essere numerate. Il programma potrebbe essere il
seguente:
#!/usr/local/bin/perl
$cont = 0;
open (IN, "< /tmp/data") || die "Impossibile aprire il file\n\n";
while ($riga = <IN>) {
chop($riga);
$riga || next;
$cont++;
print "$cont) $riga\n";
($cont == 20) && last;
}
close(IN);
