Les programmes du chapitre 5

Perl

#!/usr/bin/perl
$chaine= "Fourmond:Sophie:07-28-2004:02-14-2005:";
print "Chaine initiale: $chaine\n";
# On verifie qu'il y a des dates:
if(! $chaine =~ /(\d{2})-(\d{2})-(\d{4})/) {
    die "Pas de date. \n";}
while($chaine =~ /(\d{2})-(\d{2})-(\d{4})/g) {
# On affiche la correspondance, stockee dans $&:
    print "Date trouvee: $&\n";
# On extrait l'annee et on l'affiche:
    print "Annee: $3\n";
}
# On effectue le remplacement dans $chaine
$chaine =~ s/(\d{2})-(\d{2})-(\d{4})/$2.$1.$3/g;
print "Chaine finale: $chaine\n";