En Perl, une expression régulière est un ou plusieurs caractères utilisés pour correspondre à des valeurs dans des chaînes , comme des lettres spécifiques, les marques d'identification ou de l'espace blanc. Vous pouvez créer des fonctions qui utilisent des expressions régulières avec l'opérateur de substitution Perl pour correspondre à des espaces blancs et les supprimer. Le caractère "^" vous permet de spécifier que des caractères au début de la chaîne, le "$" vous permet d'identifier seulement ceux de la fin , ou vous pouvez omettre ces derniers et correspondre à tous les espaces blancs tout au long de la chaîne. Instructions
1

ouvrir un fichier de programme Perl, et insérez le curseur au début
2

Tapez le code suivant : .

Sous trim ($ ) {

mon string $ = shift;

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

Return of $ string ;

}

Cette fonction utilise l'opérateur de substitution " s ///" pour correspondre aux espaces blancs et les supprimer. La classe le "\\ de " caractère correspond à tous les caractères blancs et les remplace par rien . En d'autres mots , il les supprime. Elle renvoie une chaîne qui ne contient aucun caractère d'espace blanc où
3

Tapez le code suivant : .

Sous ltrim ($) { my $

string = shift;

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

$ string ;

}

Cette fonction ne supprime menant espaces blancs avant tous les autres caractères . Le " ^ \\ s », explique pour correspondre à des espaces blancs seulement jusqu'au premier caractère non - blanc, puis retirez-les
4

Tapez le code suivant : .

Sous rtrim ($ ) {

mon string $ = shift;

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

Return of $ string ;

}

Cette fonction supprime les espaces blancs à la fin de la chaîne. Le " s + $ », dit pour correspondre à des espaces blancs seulement après que tous les caractères d'espace non - blancs , puis retirez-les .
5

Enregistrez le fichier du programme.