« Programmation Perl/Expressions régulières » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 271 :
On cherche ici un espacement tel qu'une tabulation, un espace, un saut de ligne ou de page.
Pour chercher un caractère qui n'est ''pas'' un espacement : \S.
<source lang="perl">
#!/usr/bin/perl -w
use strict;
# \S = non [[:blank:]]
my @tableau = ( " ", " ","t "," v");
print 'regex : if ( $texte =~ m/\S/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/\S/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n";
</source>
==== lettre en minuscule : <nowiki>[[:lower:]]</nowiki> ====
==== lettre en majuscule : <nowiki>[[:upper:]]</nowiki> ====
| |||