« 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 '
foreach my $texte (@tableau){
else{ print " faux, "; }
}
print '(voyelles accentuées non ASCII)';
|