« Programmation Perl/Expressions régulières » : différence entre les versions

Contenu supprimé Contenu ajouté
Ligne 53 :
#!/usr/bin/perl -w
use strict;
 
# crochets []
@tableau = qw(affiche affole affuble affriole effectué effacer);
print 'Test sur la regex : if ( $texte =~ m/ff[a-df-np-s]/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/ff[a-df-np-s]/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
 
# crochets [^…]
@tableau = qw(affiche affole affuble affriole effectué effacer);
print 'Test sur la regex : if ( $texte =~ m/ff[^ieo]/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/ff[^ieo]/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
 
# ^ début de ligne