Perl/File: differenze tra le versioni

 

Questa funzione richiede come parametri una "espressione", chiamata FILEHANDLE, per poter gestire il file, e il nome del file

open ( MIOFILE , "pippo.txt" );

 

'''NOTA:''' a essere espliciti occorrerebbe scrivere open ( MIOFILE , "<pippo.txt" ); ma la open di default è in lettura.

 

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...)

$esito = open ( MIOFILE , "pippo.txt" );

if ( ! $esito )

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

}

oppure:

if ( ! open ( MIOFILE , "pippo.txt" ) )

{

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

}

oppure ancora:

unless ( open ( MIOFILE , "pippo.txt" ) )

{

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

 

Sfruttando l'operatore || è possibile aprire un file o far uscire dal programma informando del motivo con una sola riga di codice:

open ( MIOFILE , "pippo.txt" ) || die ( "Non è stato possibile aprire il file pippo.txt : $!" );

che sicuramente ha una forma pulita.

 

 

Vediamo:

while ( $linea = <MIOFILE> )

{

print $linea;

 

oppure

@tuttoIlFile = <MIOFILE>;

print @tuttoIlFile;

;ATTENZIONE : il FILEHANDLE viene usato tra <code><</code> e <code>></code> quando si legge!

 

 

Per chiudere un file si usa la funzione close() che richiede il FILEHANDLE da chiudere. Infatti un programma può aprire più file alla volta.

close ( MIOFILE );

 

== APERTURA in scrittura di un file (di testo) ==

Per poter scrivere in un file (NOTA: solo scrivere!) occorre aggiungere al nome file il simbolo '>'

Vediamo un esempio:

open ( MIOFILE , ">pippo.txt" );

ATTENZIONE: con questa operazione si è di fatto creato un nuovo file, vuoto, cancellando il vecchio.

 

Come nel caso della lettura, se non ritorna un false allora l'operazione è riuscita e pertanto è possibile applicare nello stesso modo i controlli:

$esito = open ( MIOFILE , ">pippo.txt" );

if ( ! $esito )

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

}

oppure :

if ( ! open ( MIOFILE , ">pippo.txt" ) )

{

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

}

oppure :

unless ( open ( MIOFILE , ">pippo.txt" ) )

{

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

 

oppure la più semplice :

open ( MIOFILE , ">pippo.txt" ) || die ( "Non è stato possibile aprire il file pippo.txt : $!" );

 

== SCRITTURA di un file (di testo) ==

Per scrivere in un file è sufficiente utilizzare la print indicando il FILEHANDLE. Infatti se non specificato (di default) la print usa il video (STDOUT).

print MIOFILE "Questo l'ho scritto io\n";

 

== APERTURA in aggiunta di un file (di testo) ==

Questa modalità è comoda per aggiungere linee a un file senza rimuoverne il precedente contenuto. Per farlo si possono usare i simboli '>>' prima del nome file:

open ( MIOFILE , ">>pippo.txt" );

Come nei casi precedenti è possibile fare i controlli che l'operazione si sia svolta correttamente:

$esito = open ( MIOFILE , ">>pippo.txt" );

if ( ! $esito )

die ( "Non è stato possibile aprire il file pippo.txt : $!" );

}

etc ...

 

Si usa lo stesso costrutto visto prima :

 

 

== APERTURA,LETTURA/SCRITTURA "mista" di un file (di testo) ==

*'+>' scrittura e lettura # crea un nuovo file (cursore all'inizio)

*'+>>' aggiunta e lettura # non crea un nuovo file (cursore in fondo)

open ( MIOFILE , "+>pippo.txt" ) || die ( "Non è stato possibile aprire il file pippo.txt : $!" );

Ovviamente la scrittura "sovrascrive" il contenuto (non inserisce il nuovo testo) e quindi occorre usarla con cautela.

 

 

Per esempio quando leggiamo una riga con il codice :

posiziona il cursore al primo carattere successivo alla fine della riga e quindi alla successiva richiesta fornisce la successiva riga.

 

 

La funzione seek ha la seguente sintassi:

*FILEHANDLE assume lo stesso significato delle altre funzioni;

*num_byte è il numero di byte da saltare. È un numero che può essere positivo o negativo a seconda di "dove"

 

quindi:

seek( MIOFILE , 0 , 0 ); # si posiziona all'inizio del file

seek( MIOFILE , 0 , 1 ); # si posiziona dov'è ora ! ( e rimane nel file )

seek( MIOFILE , 0 , 2 ); # si posiziona in fondo al file

Per sapere la posizione assoluta alla quale è arrivato il cursore (posizione dall'inizio del file) è possibile usare l'istruzione tell:

Se tell incontra problemi ritorna un numero negativo.

 

Vediamo ora questo esempio che rendono meglio l'idea:

open ( MIOFILE , "+<pippo.txt" ) || die ( "Non \350 stato possibile aprire il file pippo.txt : $!" );

 

 

close ( MIOFILE );

 

Questo script scrive in fondo al file la riga "riga aggiunta\n" ma mostra il valore di tell man mano che si "scorre" il file (con la seek o con la semplice lettura ).