Perl/File: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Riga 86:
Come nel caso della lettura, se non ritorna un false allora l'operazione è riuscita e pertanto è possibile applicare nello stesso modo i controlli:
<source lang=perl>
$esito = open ( MIOFILE , ">pippo.txt" );
if ( ! $esito )
{
Riga 94:
oppure :
<source lang=perl>
if ( ! open ( MIOFILE , ">pippo.txt" ) )
{
die ( "Non è stato possibile aprire il file pippo.txt : $!" );
Riga 101:
oppure :
<source lang=perl>
unless ( open ( MIOFILE , ">pippo.txt" ) )
{
die ( "Non è stato possibile aprire il file pippo.txt : $!" );
| |||