Den Perl "åbne" funktion kan du åbne en fil i læse-, skrive eller føje mode. Når man læser indholdet af en fil , kan du gemme hver linje til et nyt element i en Perl liste variabel, så bruge listen i dit program. Men funktionen også læser end-of- line karakter og gemmer det på listen så godt. Hvis du ikke ønsker at bevare denne karakter , skal du skrive en funktion, der trimmer den . Instruktioner
1

Åbn en Perl program fil. Indtast følgende kode :

åbne data , " < text.txt "

"åbne" funktion åbner filen fra filnavnet i udtrykket og gemmer indholdet i " DATA " fil håndtag. Den " < " angiver at åbne filen i "Læs " mode
2

Indtast følgende kode : .

Min @ linjer = ;
< p> Denne linje skaber en Perl liste kaldet "@ linjer" , der sparer hver linje fra filen som et nyt element i listen , herunder end -of -line tegn.
3

Type følgende kode : Hej

sub trim ($) {

min $ string = skift;

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

}

Denne funktion bruger et regulært udtryk til at fjerne efterstillede blanktegn fra en streng videregives til det som en parameter
4

Indtast følgende kode : Hej

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

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

}

Denne kode sløjfer gennem hvert element i listen , og sender det til den " trimme" funktion, du har oprettet, så overskriver element med de samme data, undtagen uden ende -of -line tegn.
5.

Gem programfilen.