Contenu supprimé Contenu ajouté
|
|
|
}
print "(é = 2 octets)";
print "\n" x 2;
# *
@tableau = qw(miss mess messe messes);
print 'Test sur la regex : if ( $texte =~ m/e[s]*$/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/e[s]*$/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
# +
@tableau = qw(pomme pommes mess messe messes);
print 'Test sur la regex : if ( $texte =~ m/e[s]+$/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/e[s]+$/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
# ?
@tableau = qw(pommes pomme mess);
print 'Test sur la regex : if ( $texte =~ m/me[s]?$/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/me[s]?$/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
|
