« Programmation Perl/Expressions régulières » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 200 :
Nous avons deux possibilités pour rechercher un caractère numérique : <nowiki>[[:digit:]]</nowiki> et \d.
Pour chercher un caractère qui n'est ''pas'' un chiffre : \D.
<source lang="perl">
#!/usr/bin/perl -w
use strict;
# [[:digit:]]
my @tableau = qw(satin 264 37.5lematin àâ68éèêëîôùûæœç);
print 'Test sur la regex : if ( $texte =~ m/[[:digit:]]/ )'."\n";
foreach my $texte (@tableau){
if ( $texte =~ m/[[:digit:]]/ ){ print "“".$texte."“ vrai, "; }
else{ print "“".$texte."“ faux, "; }
}
print "\n" x 2;
</source>
==== caractère hexadécimal : <nowiki>[[:xdigit:]]</nowiki> ====
Cela correspond à tout caractère hexadécimal, c'est à dire tous les caractères numériques (de 0 à 9) et les lettres de A à F.
| |||