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 106 :
print "\n" x 2;
 
# "ou" inclusif |
# groupe de capture ()
my @tableau = qw(dare-dare borborigme calcul barbaresatin Tartaremalin bébématin calin);
print 'Test sur la regex : if ( $texte =~ m/(...)\1m|t/ )'."\n";
foreach my $texte (@tableau){
if ( $texte =~ m/m|t/ ){ print "“".$texte“texte."“ vrai, "; }
ifelse{ (print "“".$texte =~ m/(...)\1/ ){ print "“ vraifaux, "; }
else{ print " faux, "; }
}
print "(é = 2 octets)";
print "\n" x 2;
 
Récupérée de « https://fr.wikibooks.org/wiki/Programmation_Perl/Expressions_régulières »