The Perl "åpen "-funksjonen lar deg åpne en fil i lese, skrive eller føye modus. Når du lese innholdet i en fil , kan du lagre hver linje til et nytt element i et Perl liste variabel , og deretter bruke listen i programmet. Imidlertid , leser funksjon også end- of-line karakter og lagrer det i listen også. Hvis du ikke ønsker å bevare denne karakter, må du skrive en funksjon som trimmer det . Instruksjoner
en

Åpne et Perl program fil . Skriv inn følgende kode :

åpne data , " < text.txt ";

"åpen "-funksjonen åpner filen levert av filnavnet i uttrykk og lagrer innholdet i "DATA "-filen håndtaket. Den " < " angir å åpne filen i "read "-modus
2

Skriv inn følgende kode : .

Min @ linjer = ;
< p> Denne linjen skaper en Perl liste kalt "@ linjene" som sparer hver linje fra filen som et nytt element i listen , inkludert end -of -line tegn.
3

Type følgende kode :

sub trim ($) {

min $ string = shift ;

$ string = ~ s /\\ s + $ //;
< p> returnere $ string ; .

}

Denne funksjonen bruker et vanlig uttrykk for å fjerne etterfølgende mellomrom er tegn fra en streng gått til det som en parameter
4

Skriv inn følgende kode :

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

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

}

Denne koden looper gjennom hvert element i listen, og sender den til " trim "-funksjonen du opprettet , overskriver deretter elementet med de samme data , bortsett fra uten ende - of-line karakter.
5

Lagre programfilen.