Perl/Istruzioni composte: differenze tra le versioni

Dato che il lettore al momento conosce solo le variabili e la funzione print , l'esempio riportato NON è un esempio di "buon" codice ma aiuta a capire.

 

$a = "testo di prova";

print "risultato della prima print:".

).

" fine prima print\n";

 

che produce:

Vediamone le caratteristiche:

 

<istruzione1> or <istruzione2>

 

Il Perl esegue l'istruzione 1 quindi se questa da un esito "falso" viene eseguita la istruzione 2 .

 

 

<istruzione1> and <istruzione2>

 

Il Perl esegue l'istruzione 1 quindi se questa da un esito "falso" NON viene eseguita la istruzione 2 .

Vediamo l'esempio che segue anticipando che la funzione unlink cancella dei file.Quindi si vuole che si cancellino i file indicati e che se questa non riesce si esegua una funzione gripe e poi si vada oltre (next LINE):

 

unlink "alpha", "beta", "gamma"

or gripe(), next LINE;

unlink("alpha", "beta", "gamma")

|| (gripe(), next LINE);