Perl/Cicli: differenze tra le versioni

Da questo è possibile ottenere delle altre tipologie ma nell'uso generale si preferisce utilizzarlo quando il numero di iterazioni è noto. La sua sintassi è la seguente:

 

for ( <inizio> ; <condizione> ; <incremento> )

{

... istruzioni ...

}

vediamo un esempio [ciclo finito]:

 

my $max_valore = 10;

}

print "b=$b\n";

 

che produrrà :

vediamo ora che cosa succede se togliamo la condizione (CTRL+C per fermare) [ciclo infinito1 no condizione]:

 

my $b;

for ( $b = 0 ; ; $b++ )

}

print "Ultima iterazione numero $b\n";

 

Sorpresi? se non c'è una condizione che ferma il ciclo (o se questa non si verifica mai!) il ciclo continua indefinitamente!

Vediamo ora che cosa succede se togliamo l'incremento (CTRL+C per fermare) [ciclo infinito2 no incremento]:

 

my $max_valore = 10;

}

print "b=$b\n";

 

Sorpresi? se non c'è un incremento, la condizione che ferma il ciclo sarà sempre vera; quindi, il ciclo continua indefinitamente!

vediamo ora che cosa succede se togliamo l'inizio [ciclo finito senza inizio]:

 

my $max_valore = 10;

}

print "b=$b\n";

 

che produrrà:

 

 

while ( <condizione> )

{

... istruzioni ...

}

 

Vediamo come ottenere i cicli precedenti con while e until:

[ciclo finito]

 

my $max_valore = 10;

}

print "b=$b\n";

 

[ciclo infinito1 no condizione]: la condizione è necessaria quindi questo caso non è possibile.

[ciclo infinito2 no incremento] (CTRL + C per terminare):

 

my $max_valore = 10;

}

print "b=$b\n";

[ciclo finito senza inizio ] :

 

my $max_valore = 10;

}

print "b=$b\n";

 

==== Do ... While e Do ... Until ====

Si basa sul principio di while e until con l'unica differenza che la condizione viene verificata alla fine del blocco di istruzioni , pertanto almeno una volta le istruzioni vengono eseguite.

 

do

{

}

until ( <condizione> );

 

NOTA:avete notato il ; alla fine ?

[ciclo finito]

 

my $max_valore = 10;

print "b=$b\n";

 

[ciclo infinito1 no condizione]: la condizione è necessaria quindi questo caso non è possibile.

[ciclo infinito2 no incremento] (CTRL + C per terminare):

 

my $max_valore = 10;

print "b=$b\n";

[ciclo finito senza inizio ] :

 

my $max_valore = 10;

} until ( $b > $max_valore - 1 );

print "b=$b\n";

 

È opportuno precisare che modificando opportunamente i valori iniziali , è possibile ottenere che venga eseguito almeno una volta il ciclo utilizzando while o until

[do ... while ]

 

my $anni = 15;

 

$anni-- ;

} while ( $anni > 0 );

 

che produce :

[do ... until ]

 

my $anni = 15;

 

$anni-- ;

}

 

==== Foreach ====

Questa istruzione consente di "scandire" una lista (array).

 

foreach <variabile> ( <lista> )

{

... istruzioni ...

}

 

Vediamo ora come è possibile creare il [ciclo finito]:

 

my $max_valore = 10;

}

print "b=$b\n";

 

che produrrà :

Questo costrutto è utile quando "al termine di ogni iterazione" occorre compiere una serie di incrementi oppure quando si vuole "evidenziare" l'incremento:

 

while ( <condizione> )

{

}

# Nota Last passa qui (termina fuori)

 

È un modo per riproporre lo spazio per l'incremento del ciclo for.

Esempio:

 

my $b = 15;

my $salto = 17;

$b++;

}

 

che produce :

Esempio:

 

my $b = 15;

my $salto = 17;

print "continue b=$b\n";

}

 

che produce: