« Programmation Perl/Expressions régulières » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 329 :
<source lang="perl">
$texte =~ /[a-eG-K0-579]/;
</source>
<p>
crochets []
<source lang="perl">
#!/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";
</source>
<p>
crochets [^…]
<source lang="perl">
#!/usr/bin/perl -w
use strict;
# 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";
</source>
| |||