Discussion :

[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.

[GnuVince]

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 :

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

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.

[moook]

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 :

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

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;

[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.