[PERL] conversion des dates

Merci pour ta réponse.
Je t'en dis plus : je traite un fichier Excel, exporté au format CSV. Ce fichier Excel comporte de nombreuses colonnes. La colonne des dates m'intéresse tout particulièrement; elle s'étend sur une plage qui va de 1970 à 2006. La date mini ne sera jamais inférieure à 1970; la maxi suivra le calendrier.

Sous Excel, les dates sont un peu organisées n'importe comment; quelques exemples :

-> 1987
-> 01/98
01/98-06/02
1978->
01.05-02.06

Je cherche, en Perl, à créer une automatisation de la mise en forme de ce champs date, qui doit être formaté suivant des critères bien précis :

->1987 va être formaté en "avant 1987"
->01/98 va être formaté en "avant 01/1998"
01/98-06/02 va être formaté en "de 01/1998 à 06/2002"
1978-> sera formaté en "après 1978"
01.05-02.06 sera formaté en "de 01/2005 à 02/2006

Donc : remplacement des "." par des "/", etc

Je me suis servi beaucoup des expressions régulières, avec ton aide. Mais là, je ne vois pas comment m'en sortir.


Merci,

Salut,

la question était
Je me bats contre une conversion de dates en Perl. Voici le problème :

je dois convertir des chaînes du type "de 01/85 à 01/99" en ceci : "de 01/1985 à 01/1999".

Tu n'es pas cohérent dans ta façon d'écrire le code

my @lesmois = ("Janvier" , "Fevrier" , .....);
my @lesjours = qw (Dimanche Lundi Mardi....);

autant écrire

my @lesmois = ("Janvier" , "Fevrier" , .....);
my @lesjours = ("Dimanche" , "Lundi" , "Mardi" , ....); 

ou

my @lesmois = qw (Janvier Fevrier .....);
my @lesjours = qw (Dimanche Lundi Mardi....); 

perso j'aurai écrit (pour lisibilité)

@lesmois = qw { Janvier Fevrier  Mars
                Avril   Mai      Juin
                Juillet Aout     Septembre
                Octobre Novembre Decembre  };

Perl permets une grande liberté. Chacun écrit le code comme il veut. Le pire sera à la maintenance de code.
lami20j