Perl n'a pas de fonction intégrée qui élimine les espaces dès le début ou la fin d' une chaîne, mais vous pouvez utiliser l'opérateur de substitution intégré pour effectuer la même fonction. L'opérateur de substitution utilise des expressions régulières standards pour remplacer une partie d'une chaîne avec d'autres caractères. Retrait espaces peut aider à nettoyer et valider les entrées utilisateur , et vous pouvez également l'utiliser pour supprimer l'espace inutile dans un fichier texte. Instructions
1

Ouvrez un document texte vide
2

tapez les lignes suivantes pour lancer le script Perl : . !

# Bin /perluse strict ; use warnings ;
3

Tapez les lignes suivantes pour créer une chaîne qui contient les blancs au début et à la fin de la chaîne , et d'imprimer la chaîne à l'écran :
< p> my $ orig_string = " Ceci est une chaîne ... " ; print $ orig_string . " \\ n " ;
4

tapez les lignes suivantes pour supprimer cet espace depuis le début de la chaîne et d'imprimer la chaîne éditée à l'écran :
< p> $ orig_string = ~ s /^ \\ s + //; print $ orig_string ;
5

tapez les lignes suivantes pour supprimer cet espace à partir de la fin de la chaîne et imprimer la chaîne éditée à l'écran : . .

$ orig_string = ~ s /\\ s + $ //; print $ orig_string "\\ n" ;
6

Sauvegardez et fermez le fichier
< br >