La fonction "open" Perl vous permet d'ouvrir un fichier en lecture, d'écriture ou mode ajout . Quand vous lisez le contenu d'un fichier , vous pouvez enregistrer chaque ligne à un nouvel élément dans une variable de liste Perl , puis utilisez la liste dans votre programme. Cependant, la fonction lit aussi le caractère de fin de ligne et sauve que dans la liste. Si vous ne souhaitez pas conserver ce personnage , vous devez écrire une fonction qui borde elle . Instructions
1

ouvrir un fichier de programme Perl. Tapez le code suivant :

Open Data , "< text.txt " ;

La fonction "open" ouvre le fichier fourni par le nom du fichier dans l'expression et enregistre le contenu dans le " DATA" descripteur de fichier . Le « <» désigne pour ouvrir le fichier en mode "lecture "
2

Tapez le code suivant : .

My @ lignes = ;
< p > Cette ligne crée une liste Perl nommé " @ lines » qui enregistre chaque ligne du fichier comme un nouvel élément dans la liste , y compris les caractères de fin de ligne.
3 type de

le code suivant :
sous garniture de

($) {
de

mon string $ = de décalage ;

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

}

Cette fonction utilise une expression régulière pour enlever caractère d'espace blanc à partir d'une chaîne qui lui est passé en paramètre
4

Tapez le code suivant :

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

@ lignes [$ i] = trim (@ lignes [$ i] ) ; }

Ce code parcourt chaque élément de la liste, et le transmet à la fonction "Trim" que vous avez créé , puis écrase l'élément avec les mêmes données , à l'exception sans fin de ligne caractère.
5

Enregistrez le fichier du programme.