« Programmation Perl/Expressions régulières » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 614 :
=== Définir des alternatives : (a|b) ===
<source lang="perl">
#!/usr/bin/perl -w
use strict;
# "ou" inclusif |
my @tableau = qw(satin malin matin calin);
print 'regex : if ( $texte =~ m/m|t/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/m|t/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n";
</source>
=== Captures avides ou non avides ===
Le plus simple pour comprendre ce qu'est une capture avide est de prendre un exemple.
| |||