Gestion de dates

Version imprimable

10/10/2006, 16h51
moook

Gestion de dates

Bonjour,

d'aprés vous quel est la meilleur solution pour gérer une date de cette forme:
Mon Oct 09 22:38:00 CEST 2006
et la transformer sous cette forme:
2006-10-09 22:38:00

Merci d'avance.
10/10/2006, 20h09
GnuVince
Citation:

Envoyé par moook

Bonjour,

d'aprés vous quel est la meilleur solution pour gérer une date de cette forme:
Mon Oct 09 22:38:00 CEST 2006
et la transformer sous cette forme:
2006-10-09 22:38:00

Merci d'avance.

Sans doute le module Date::Manip (disponible sur CPAN):
Code:

1 2 3 4 5 use Date::Manip qw(UnixDate ParseDate); my $date = ParseDate("Mon Oct 09 22:38:00 CEST 2006"); print UnixDate($date, "%Y-%m-%d %H:%M:%S"), "\n";
Bonne chance.

Merci pour ta réponse, en effet il faudrait que je teste cela, c'est quand même plus propre que ce que j'ai écris (même si ça marche!)

Code:

1
2
3
4
5
6
7
8
9
$datelastupdate=$e->{files}->{file}->{datelastupdate};
@datelastup = split (/ / ,$datelastupdate);
$mois_up = $datelastup[1];
$jour_up = $datelastup[2];
$heure_up = $datelastup[3];
$annee_up = $datelastup[5];
($hh_up, $mm_up, $ss_up) = split(/:/, $heure_up);
my %month=(Jan=>"01",Feb=>"02",Mar=>"03",Apr=>"04",May=>"05",Jun=>"06",Jul=>"07",Aug=>"08",Sep=>"09",Oct=>"10",Nov=>"11",Dec=>"12");
$datelastupdate = $annee_up."-".$month{$mois_up}."-".$jour_up."".$heure_up;

11/10/2006, 21h34
GnuVince

C'est plus clair en effet. Autre chose, Date::Manip peut être utilisé avec des dates en français, donc my $date = ParseDate("22 février 1984") va fonctionner.