Discussion :

[Melvine]

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 :

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

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

[Jedai]

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ï

[Melvine]

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

et j'ai essayer avec un module

Code :

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

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 :

ERROR: Date::Manip unable to determine TimeZone.
at C:/Perl/site/lib/Date/Manip.pm line 3635
Date::Manip:ate_TimeZone called at C:/Perl/site/lib/Date/Manip.pm line
676
Date::Manip:ate_Init() called at C:/Perl/site/lib/Date/Manip.pm line 7
99
Date::Manip:arseDateString('25/04/2007 17:19:51') called at C:/Perl/si
te/lib/Date/Manip.pm line 1494
Date::Manip:ate_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

[Jedai]

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 :

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

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ï