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

Contenu supprimé Contenu ajouté
Ligne 108 :
# "ou" inclusif |
my @tableau = qw(satin malin matin calin);
print 'Test sur la regex : if ( $texte =~ m/m|t/ )'."\n";
foreach my $texte (@tableau){
if ( $texte =~ m/m|t/ ){ print "“".$texte."“ vrai, texte“"; }
else{if print( "“".$texte. =~ m/m|t/ ){ print " fauxvrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
 
# {…}