Conversion de date

Bonjour,
Débutant en Perl, je capture, à l'aide d'expressions régulières, une date au format AAAAJJJ.
Exemple: pour aujourd'hui 7 avril 2011, le format de date récupéré est 2011097. (97e jour de l'année 2011).
Comment puis-je convertir cette date au format JJ/MM/AAAA (07/04/2011) ?
Merci d'avance pour votre aide.
Cordialement
Luluc94

Avec une autre expression régulière :

Code:

$date =~ s{(\d\d\d\d)(\d\d)(\d\d)}{$1/$2/$3};

Citation:

Envoyé par Philou67430

Avec une autre expression régulière :

Code:

$date =~ s{(\d\d\d\d)(\d\d)(\d\d)}{$1/$2/$3};

Merci pour ta réponse mais désolé mais je ne comprend pas la manip.
J'ai actuellement une variable $hltime qui vaut "2011097".
Comment, avec l'expression régulière indiquée, puis-je obtenir une variable qui vaudra "07/04/2011" ?

Oups, je n'avais pas vu qu'il fallait inverser les éléments de la date :

Code:

$hltime =~ s{(\d\d\d\d)(\d\d)(\d\d)}{$3/$2/$1};

Je n'ai pas le temps d'expliciter ce soir, si quelqu'un d'autre le veut bien, merci à lui. Sinon, ce sera demain matin.

Citation:

Envoyé par Philou67430

Oups, je n'avais pas vu qu'il fallait inverser les éléments de la date :

Code:

$hltime =~ s{(\d\d\d\d)(\d\d)(\d\d)}{$3/$2/$1};

Je n'ai pas le temps d'expliciter ce soir, si quelqu'un d'autre le veut bien, merci à lui. Sinon, ce sera demain matin.

Je comprend le principe. Tu fais une substitution en découpant la date en 3 paquets de 4chiffres 2chiffres 2chiffres et tu inverses ces paquets en ajoutant un slash en chaque.
Mais pour faire ce découpage il faut 8chifres du genre AAAAMMJJ or je n'ai pas AAAAMMJJ mais AAAAJJJ où JJJ est le quantième du jour de l'année.
Pour le 7 avril 2011, je n'ai pas 20110407 mais 2011097 et donc je ne vois pas comment faire avec ton expression régulière.

Arg, re désolé... il faut alors utiliser localtime, si j'ai un peu de temps ce soir, je regarde.

Voici quelque chose de mieux :
Code:

1 2 3 4 5 use POSIX qw(mktime strftime); $hltime="2011097"; my ($annee, $jour) = $hltime =~ /(\d\d\d\d)(\d+)/; my $hlday = mktime(0, 0, 0, 1, 0, $annee-1900)+$jour * 86400; print strftime("%d/%m/%Y", localtime($hlday)), "\n";
La première ligne découpe la chaine en deux parties : l'année et le jour de l'année.
La deuxième construit une valeur en seconde de la date depuis Epoch (compatible avec le fonction time et donc localtime).
La dernière affiche la date ainsi obtenue au format souhaité.

Bonne soirée.

Citation:
Envoyé par Philou67430
Voici quelque chose de mieux :
Code:

1 2 3 4 5 use POSIX qw(mktime strftime); $hltime="2011097"; my ($annee, $jour) = $hltime =~ /(\d\d\d\d)(\d+)/; my $hlday = mktime(0, 0, 0, 1, 0, $annee-1900)+$jour * 86400; print strftime("%d/%m/%Y", localtime($hlday)), "\n";
La première ligne découpe la chaine en deux parties : l'année et le jour de l'année.
La deuxième construit une valeur en seconde de la date depuis Epoch (compatible avec le fonction time et donc localtime).
La dernière affiche la date ainsi obtenue au format souhaité.

Bonne soirée.
Bonjour,

Merci beaucoup pour ton aide. Il faut juste enlever un jour car ta formule donne le 8 avril au lieu du 7 avril.
J'ai donc modifié comme suit :
my $hlday = mktime(0, 0, 0, 1, 0, $annee-1900)+($jour - 1) * 86400;

Merci encore.
Bonne journée.

Citation:

Envoyé par Luluc94

Bonjour,

Merci beaucoup pour ton aide. Il faut juste enlever un jour car ta formule donne le 8 avril au lieu du 7 avril.
J'ai donc modifié comme suit :
my $hlday = mktime(0, 0, 0, 1, 0, $annee-1900)+($jour - 1) * 86400;

Merci encore.
Bonne journée.

En fait, il ne sert à rien d'enlever un jour il faut juste mettre 0 à la place de 1 dans la fonction mktime:
my $hlday = mktime(0, 0, 0, 0, 0, $annee-1900) + $jour * 86400;
Désolé, je ne l'ai trouvé qu'en regardant sur le web le fonctionnement de la fonction mktime que je ne connaissais pas du tout.

En fait, ce n'est pas ce que dis la doc de mktime

Citation:

mktime Convert date/time info to a calendar time.

Synopsis:

mktime(sec, min, hour, mday, mon, year, wday = 0, yday = 0, isdst = -1)

The month ("mon"), weekday ("wday"), and yearday ("yday") begin
at zero. I.e. January is 0, not 1; Sunday is 0, not 1; January
1st is 0, not 1. The year ("year") is given in years since
1900. I.e. The year 1995 is 95; the year 2001 is 101. Consult
your system's "mktime()" manpage for details about these and
the other arguments.

Calendar time for December 12, 1995, at 10:30 am.

$time_t = POSIX::mktime( 0, 30, 10, 12, 11, 95 );
print "Date = ", POSIX::ctime($time_t);

Returns "undef" on failure.

En regardant bien l'exemple, tu verras que le jour commence bien par 1 et non 0.

En revanche, il faut effectivement enlever un jour à $jour dans mon bout de script, car le 97e jour de l'année correspond au premier janvier + $jour - 1 (il faut avancer de 96 jours).