Open een Perl-programma bestand . Typ de volgende code :

geopend DATA
, " < text.txt " ;

De functie " open" opent het bestand door de bestandsnaam in de expressie en slaat de inhoud van de " DATA" file handle . De " < " geeft aan het bestand in " read " -modus te openen

type 2 de volgende code : .

Mijn @ lijnen = ;

Deze lijn creëert een Perl lijst genaamd " @ lijnen " dat elke lijn redt van het bestand als een nieuw element in de lijst , waaronder end - of-line karakters .

Type 3 de volgende code :

sub bekleding
( $ ) {

mijn $ string = shift;

$ string = ~ s /\\ s + $ //;

terug $ string ; .

}

Deze functie maakt gebruik van een reguliere expressie om witruimte tekens uit een string doorgegeven aan het als een parameter te verwijderen
4

Typ de volgende code :

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

@ lijnen [ $ i ] = bekleding ( @ lijnen [ $ i ] ) ;

}

Deze code
doorloopt elk element in de lijst , en geeft het door aan het " trimmen " functie die u hebt gemaakt , dan overschrijft het element met dezelfde gegevens , maar dan zonder het einde - of-line karakter .
5

Sla het programma bestand .