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 = 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. Tipo il seguente codice : sub trim ( $ ) { my $ stringa = shift; $ stringa = ~ s /\\ s + $ //; return $ stringa ; . } Questa funzione utilizza un'espressione regolare per rimuovere finali spazi vuoti da una stringa passata ad esso come parametro 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 . Salvare il file di programma .
3
4
5
Informazioni correlate
Programmazione © www.354353.com