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