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

Contenu supprimé Contenu ajouté
Ligne 189 :
# [[:alpha:]]
my @tableau = qw(satin 264 mâtin àâéèêëîôùûæœç àâéèêëîôùûæœça);
print 'Test sur la regex : if ( $texte =~ m/[[:alpha:]]/ )'."\n";
foreach my $texte (@tableau){
if ( $texte =~ m/[[:alpha:]]/ ){ print "“".$texte."“ vrai, texte“"; }
else{if print( "“".$texte. =~ m/[[:alpha:]]/ ){ print " fauxvrai, "; }
else{ print " faux, "; }
}
print '(voyelles accentuées non ASCII)';