|
In Perl esistono sostanzialmente due strutture di controllo per
realizzare cicli iterativi: la struttura
while e la struttura
for.
La struttura
while ci permette di ripetere un certo blocco
di istruzioni finché l'espressione logica che controlla il ciclo risulta
vera. Quando dovesse risultare falsa il flusso del programma uscirebbe
fuori dal ciclo. Se l'espressione è falsa già prima di entrare nel ciclo
while allora questo non verrà eseguito neanche una volta. La
sintassi è la seguente:
|
while |
(espressione) { |
|
|
blocco di istruzioni |
|
} |
Vediamo tre esempi di come può essere utilizzata la struttura
iterativa while. Il primo è il più semplice: il ciclo viene
ripetuto fino a quando la variabile flag
$n non assume il
valore zero.
|
#!/usr/local/bin/perl
$n=10;
while ($n > 0) {
$n--;
print "$n ";
} |
Il secondo esempio legge e stampa il contenuto di un file:
|
#!/usr/local/bin/perl
open(IN, "< /tmp/dati") || die "Impossibile aprire il file\n\n";
while ($r = <IN>) {
print $r;
}
close(IN); |
Infine il terzo esempio visualizza il contenuto di una lista:
|
#!/usr/local/bin/perl
@frutta = ("mele", "pere", "pesche", "albicocche");
while (@frutta) {
$frutto = shift @frutta;
print "$frutto\n";
} |
Lezione
successiva =>
Torna
all'indice
|
Guidainlinea.com come homepage
Aggiungi questa pagina ai preferiti