La funzione di Perl " open" consente di aprire un file in lettura, scrittura o la modalità di accodamento. Quando si legge il contenuto di un file, è possibile salvare ogni riga di un nuovo elemento in una variabile di lista Perl , quindi utilizzare l'elenco nel programma. Tuttavia, la funzione legge anche il carattere di fine linea e salva che nella lista pure . Se non si desidera conservare questo carattere , è necessario scrivere una funzione che trim IT. Istruzioni
1

Aprire un file di programma Perl . Digitare il seguente codice :

dati aperti , " < text.txt " ;

La funzione "Apri" si apre il file fornito dal nome del file nella espressione e salva il contenuto in " DATA" handle di file . Il " < " specifica per aprire il file in modalità "read"
2

digitare il seguente codice : .

Mio @ righe = ;
< p > Questa linea crea un elenco Perl chiamato "@ linee" che salva ogni riga del file come un nuovo elemento nella lista , tra cui caratteri di fine linea.
3

Tipo il seguente codice :

sub trim ( $ ) {

my $ stringa = shift;

$ stringa = ~ s /\\ s + $ //;
< p > return $ stringa ; .

}

Questa funzione utilizza un'espressione regolare per rimuovere finali spazi vuoti da una stringa passata ad esso come parametro
4 < p > Digitare il seguente codice :

for ( $ i = 0; $ i < @ linee ; $ i + + ) {

@ linee [ $ i ] = trim ( @ linee [ $ i ] ) ;

}

Questo codice consente di scorrere ogni elemento della lista , e lo passa alla funzione "Trim" si è creato , quindi sovrascrive l'elemento con gli stessi dati , ad eccezione senza fine - di - linea di carattere .
5

Salvare il file di programma .