Claudiogarau.it :: Tutorials & Scripts, PHP, Linux and more.

Uno dei motivi per cui Perl è un liguaggio molto apprezzato dagli sviluppatori, risiede nella sua innata capacità di gestire le varie operazioni di manipolazione che è possibile operare su un documento, come per esempio: apertura, lettura, scrittura e chiusura.

Nelle prossime righe proporremo il codice da digitare per la creazione di un piccolo aplicativo capace di aprire, leggere e chiudere un file chiamato "documento.txt":

# Passiamo il file come valore di una variabile
$var = 'documento.txt';

# 

Apertura
open(INFO, $var);

# Lettura
@testo = <INFO>;

# Chiusura
close(INFO);

# 

stampa a video
print @testo;

La logica seguita dal nostro piccolo applicativo è abbastanza semplice: innanzitutto il file su cui operare viene passato come valore ad una variabile ("$var"); in secondo luogo utilizziamo la funzione nativa open per aprire il file; quindi, il file viene letto passando il cuo contenuto come valore di un array ("@testo"); infine il fine viene chiuso utilizzando la funzione nativa close e il suo contenuto viene stampato a video.

Sempre riguardo alla gestione dei documenti, è importante sottolineare come la funzione nativa open possa essere utilizzata anche al fine di specificare un determinato file da impiegare per il salvataggio dei dati in output:

# 

Lettura
open(INFO, $var);

# Scrittura
open(INFO, ">$var");

# Salvataggio
open(INFO, 

">>$var");

Sarà inoltre possibile scrivere del testo su di un documento aperto in scrittura, in questo caso dovremo utilizzare l'istruzione print a cui passeremo come parametro il contenuto attuale del file (che può essere anche vuoto) e la stringa da aggiungere:

print INFO "testo testo testo 

testo.n";