« Programmation Perl/Expressions régulières » : différence entre les versions
Contenu supprimé Contenu ajouté
m →appliquer un changement plusieurs fois dans la chaîne : occurrence |
|||
Ligne 79 :
Lors d'une recherche, nous pouvons l'utiliser pour indiquer '''n'importe quel caractère''', excepté le retour à la ligne (\n).
===== exemple utilisation du point =====
<source lang="perl">
#!/usr/bin/perl -w
use strict;
# le point .
my @tableau = qw(matin mâtin méthode admit);
print 'regex : if ( $texte =~ m/m.t/ )'."\n";
foreach my $texte (@tableau){
if ( $texte =~ m/m.t/ ){ print "“".$texte."“ vrai, "; }
else{ print "“".$texte."“ faux, "; }
}
print "(lettres accentuées = 2 octets)";
print "\n" x 2;
# double point .
@tableau = qw(matin mâtin méthode admit);
print 'regex : if ( $texte =~ m/m..t/ )'."\n";
foreach my $texte (@tableau){
if ( $texte =~ m/m..t/ ){ print "“".$texte."“ vrai, "; }
else{ print "“".$texte."“ faux, "; }
}
print "\n";
</source>
==== caractère alphabétique : <nowiki>[[:alpha:]]</nowiki> ====
| |||