Différences entre les versions de « Programmation Perl/Expressions régulières »

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> ====
73

modifications