;
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.
