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

Contenu supprimé Contenu ajouté
Ligne 182 :
==== caractère alphabétique : <nowiki>[[:alpha:]]</nowiki> ====
Pour rechercher un caractère alphabétique on utilise: <nowiki>[[:alpha:]]</nowiki> ou éventuellement [a-zA-Z].
<source lang="perl">
#!/usr/bin/perl -w
use strict;
 
# [[: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, "; }
else{ print "“".$texte."“ faux, "; }
}
print '(voyelles accentuées non ASCII)';
print "\n";
</source>
 
==== caractère numérique : \d et <nowiki>[[:digit:]]</nowiki> ====