Discussion :

[devdev2003]

Bonjour,
je debute en perl ....
est ce qu 'il y a une fonction en Perl qui reçoit comme parametre d'entrée, les nombre de jour écouler à partir de l'année courante et qui renvoie :
la date correspondante ?
c.à.d :

si param=15 // année 2005

alors résultat :

date : 15/01/2005 // 15 janvier 2005

Merci

[chostrama]

Il existe plusieurs modules pour la gestion et la conversion des dates. Je conseille Date::Calc (http://search.cpan.org). Lis soigneusement la doc et tu trouveras certainement les fonctions qui feront l'affaire.

[nematoad]

A mon avis, le mieux c'est de partir de quelque chose comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
#! /usr/local/bin/perl -w
 
use strict;
use Date::Calc 'Add_Delta_Days';
 
my $jour = shift || die "Pas de jour\n";
my $annee = shift || (localtime)[5] + 1900;
my( $an, $ms, $jr ) = Add_Delta_Days($annee, 1, 1, $jour);
 
printf "%04d-%02d-%02d\n", $an, $ms, $jr;

Date::Calc peut sembler effrayant de premier vue, mais une fois qu'on commence à piocher dedans, on trouve la solution à tous ce qui touche aux dates.

N