comment comparer deux date

salut,

Comment pourrai-je faire en perl,
pour comparer deux date ?
Je souheterais comparer une date que je recupere de ma base de donnée au format "DD/MM/YYYY HH24:MI:SS" avec une date au meme format;
j'utilise le module Posix pour recuperer la date et l'heure du jour

J'ai fait cela mais ça ne fonctionne pas

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use strict; use warnings; use English; use POSIX qw(strftime);   my $madate1 = strftime( '%d/%m/%Y %H:%M:%S', localtime ); my $madate='22/10/2012 12:00:00';   if ($madate <= $madate1) { print "ok\n"; } else { print "ko\n"; }

---

est-ce que vous auriez une idée ?

Merci

Je te conseillerais bien d'essayer DateTime.
Je suppose que la date provient d'une source extérieure ? (Sinon tu peux la rentrer dans un format plus adapté) DateTime::Format::Strptime est capable de parser tout ce que strftime est capable de formater.

--
Jedaï

j'ai deux questions
est-ce possible de le faire sans ajouter de module perl ?

et j'ai essayer avec un module

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

#!/usr/bin/perl -w     use strict; use warnings; use English; use POSIX qw(strftime); #use Date::Calc qw(:all); use Date::Manip;   my $madate1 = strftime( '%d/%m/%Y %H:%M:%S', localtime );   my $madate ='22/10/2012 12:00:00';   my $flag = Date_Cmp($madate1,$madate); if ($flag<0) { # date1 is earlier print "$madate1 est inferieur $madate\n"; } elsif ($flag==0) { # the two dates are identical print "$madate1 est egal $madate\n" } else { # date2 is earlier print "$madate1 est superieur $madate\n"; }

---

j'ai ce message d'erreur :

Citation:

---

ERROR: Date::Manip unable to determine TimeZone.
at C:/Perl/site/lib/Date/Manip.pm line 3635
Date::Manip::Date_TimeZone called at C:/Perl/site/lib/Date/Manip.pm line
676
Date::Manip::Date_Init() called at C:/Perl/site/lib/Date/Manip.pm line 7
99
Date::Manip::ParseDateString('25/04/2007 17:19:51') called at C:/Perl/si
te/lib/Date/Manip.pm line 1494
Date::Manip::Date_Cmp('25/04/2007 17:19:51', '22/10/2012 12:00:00') call
ed at C:\Documents and Settings\melvine\Bureau\test\Date1.pl line 15

---

Citation:

---

Envoyé par Melvine

j'ai deux questions
est-ce possible de le faire sans ajouter de module perl ?

---

Oui, par exemple tu parses à la main et tu utilises Time::Local (c'est un module mais il est en standard, donc je ne pense pas que ça te gène), ça donnerais un truc comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

use Time::Local;   sub parseDate { my $date = shift; if( $date =~ m{(\d{1,2})/(\d{1,2})/(\d{4}) \s+ (\d{1,2}):(\d{1,2}):(\d{1,2})}x) { return timelocal($6, $5, $4, $1, $2 - 1, $3); } else { die "$date unparseable.\n"; } }   cmpDate { my ($date1, $date2) = @_; return parseDate($date1) <=> parseDate($date2); }

---

Mais ceci est un code fragile, peu flexible, peu extensible...
Si tu penses que tu vas faire d'autres calculs de date, utilise un module si possible, et plutôt un module comme DateTime qui est cohérent dans son approche (Date::Manip est puissant, mais laid et incohérent).

--
Jedaï