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

Contenu supprimé Contenu ajouté
Ligne 443 :
}
print "(espace en-tête)";
print "\n";
</source><p>
$ fin de ligne
<source lang="perl">
# $ fin de ligne
@tableau = ("affiche", "affiche.", "affiches");
print 'regex : if ( $texte =~ m/che.$/ )'."\n";
foreach my $texte (@tableau){
print "“$texte“";
if ( $texte =~ m/che.$/ ){ print " vrai, "; }
else{ print " faux, "; }
}
print "\n";
</source>