Perl/File: differenze tra le versioni

Contenuto cancellato Contenuto aggiunto
Ramac (discussione | contributi)
m cambio avanzamento a 75%
Riga 21:
La funzione open ritorna un "false" in caso di problemi e imposta la variabile speciale <code>$!</code> che contiene il motivo indicato dal sistema operativo (es: file inesistente , non posso aprire il file, etc...)
<source lang=perl>
$esito = open ( MIOFILE , "pippo.txt" );
if ( ! $esito )
{
Riga 29:
oppure:
<source lang=perl>
if ( ! open ( MIOFILE , "pippo.txt" ) )
{
die ( "Non è stato possibile aprire il file pippo.txt : $!" );
Riga 36:
oppure ancora:
<source lang=perl>
unless ( open ( MIOFILE , "pippo.txt" ) )
{
die ( "Non è stato possibile aprire il file pippo.txt : $!" );