Tfe

Old stuff/Perl/regex.pl

#!/usr/bin/perl -w

$_ = "3/12/2004";
print $_." => ";
s/(\d+)\/(\d+)\/(\d+)/
    "$1 ".${[0,'janvier','fevrier','mars','avril','mai','juin','juillet','aout','septembre','octobre','novembre','decembre']}[$2]  ." $3"
    /ex;


print "$_\n";