Wikilivres

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

Navigation interactive dans l’historique
← Modification précédenteModification suivante →
Contenu supprimé Contenu ajouté
VisuelWikicode
Ligne 208 :
# [[: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, texte“"; }
else{if print( "“".$texte. =~ m/[[:digit:]]/ ){ print "“ fauxvrai, "; }
else{ print " faux, "; }
}
print "\n" x 2;
</source>
 
Récupérée de « https://fr.wikibooks.org/wiki/Programmation_Perl/Expressions_régulières »