« Programmation Perl/Expressions régulières » : différence entre les versions
Contenu supprimé Contenu ajouté
Ligne 303 :
==== lettre en majuscule : <nowiki>[[:upper:]]</nowiki> ====
<source lang="perl">
#!/usr/bin/perl -w
use strict;
# [[:upper:]]
my @tableau = qw( abcde abcDe);
print 'regex : if ( $texte =~ m/[[:upper:]]/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/[[:upper:]]/ ){ print " vrai, "; }
}
print "\n";
</source>
==== caractère de ponctuation : <nowiki>[[:punct:]]</nowiki> ====
| |||