|
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); |
Lezione
successiva =>
Torna
all'indice
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti