[Perl] Comparer deux dates

Question

Bonjour,

Je suis un debutant en linux et en perl, merci d'etre compréhensif ^^ , j'ai deja lu pas mal de truc sur le sujet, enfin je remerci d'avance ceux qui pourront m'aider ^^

J'ai une date contenu dans une variable : avec ce type de format : $date1 = Sep 10 12:25:32 2010

J'aimerai la comparer avec la date actuel ($date2, que j'ai aussi dans une variable avec le meme format) , et que le script ecrive un message si le delai entre les deux date est inférieur ou égal à 2mois ($date1 - $date2 =< 2mois)

Je peu installer des packages, ou je sais pas comment sa s'appelle du genre Date::Time, d'apres ce que j'ai lu sur d'autre sujet ca pourrai etre utile.

A mon avis, c'est très simple pour qqun qui s'y connait, mais en tout cas pas pour moi ^^

Voila, merci ^^

rev · Answer

En fait c'est pas inférieur à 2 mois mais plutot à 2ans, enfin je ne pense pas que ca change grd chose !

marc[i1] · Answer

Salut,

google me propose cette réponse :
http://datetime.mongueurs.net/Perl/faq.html#2_5_Comment_comparer_deux_dates

rev · Answer

Je l'ai lu mainte et mainte fois, mais des choses m'echappe, deja faut-il installer le Date::Time  dont il parle ?
Et ensuite, mes dates sont deja créer et contenu dans des variable pas Datetime si j'ai bien compris, va y'avoir un probleme de format ou qqch du genre, bref, si qqun pouver me donner un bout de code ca m'aiderai ^^

lami20j · Answer

Salut, 

voici un petit exemple qui pourra peut être t'aider#!/usr/bin/perl
use strict;use warnings;
use Date::Manip;
use Date::Calc qw(Delta_Days);

my $date1 = "Sep 10 12:25:32 2010";
my $date2 = "Dec 10 20:57:32 2007";

my $d1 = ParseDate($date1);
my $d2 = ParseDate($date2);

my ($a1,$m1,$j1,$H1,$M1,$S1) = UnixDate($d1,"%Y","%m","%d","%H","%M","%S");
print "$a1,$m1,$j1,$H1,$M1,$S1
";

my ($a2,$m2,$j2,$H2,$M2,$S2) = UnixDate($d2,"%Y","%m","%d","%H","%M","%S");
print "$a2,$m2,$j2,$H2,$M2,$S2
";

my @d1 = UnixDate($d1,"%Y","%m","%d");
print "@d1
";
my @d2 = UnixDate($d2,"%Y","%m","%d");
print "@d2
";

my $diff = Delta_Days(@d2,@d1);
print "$diff jours entre @d2 et @d1
";

rev · Answer

Coucou, et merci pour vos reponse, j'ai essayer de comprendre ton code tout d'abord, il y avait qq erreur, que je pense avoir trouver

(; apres quote a remplacer par une virgule et aussi la " avant %S), en tout cas je te remerci, j'ai aussi installer Date::Manip ainsi que Date::Calc

Mais il me reste quelque erreur:

[root@XXXXX]# perl test.pl
Sep  5 12:59:36 2010                                  => ma $date1

Dec 11 15:48:33 2007                                 => ma $date2
date passed in ('2010090512:59:36') is not a Date::Manip object at test.pl line 27


Aparemment la ligne 27 pose probleme au moment du ParseDate,

Qqun aurait il une idée?

Si vous avez besoin de plus de détails n'hesitez pas !
Et encore merci lami20j !

lami20j · Answer

Salut,

En fait il n'avait pas des erreurs dans mon code ;-) sauf que je viens de remarquer que les guillements ont été traduite en code HTML
Donc c'est la faute de CCM ;-DDDDDDDDDDDD

Qqun aurait il une idée? 
Oui, si tu m'affiche ton script ;-)

rev · Answer

Re,

Et bien, avec ton code, j'ai la meme erreur, toujours au niveau du ParseDate,

Meme avec la fonction que j'ai trouvé dans le manuel de Date::Manip  => my $d3 = ParseDate("today");

toujours pareil :

date passed in ('2007121209:02:38') is not a Date::Manip object at test2.pl line 10

Comment le declarer en Date::Manip object ?

Merci pour vos reponses !

lami20j · Answer

Salut,

j'aimerais bien voir ton code, pas le mien qui fonctionne.
si tu ne me donne plus de détails alors je ne peux rien pour toi.

rev · Answer

Salut,

Et bien ecoute c'est ton code qui ne marche pas chez moi, (et le mien aussi par la meme occasion, et avec la meme erreur),

J'ai copier coller ton code dans un fichier .pl, changer le ";" apres le quot par une virgule et j'ai rajouter un guillemet avant le %S pour eviter les erreur de syntaxe.

Et quand je l'execute :

date passed in ('2010091012:25:32') is not a Date::Manip object at test2.pl line 9

Cela ne viendrai peut etre pas du code alors?

Merci

rev · Answer

Le script figure juste au dessus, c'est celui de lami20j, 

la ligne 9 est donc => 

my $d1 = ParseDate($date1);

J'ai lu la doc de Date::Manip, et j'ai chercher dans le code de Manip.pm :
voila aparemment la fonction qu'il n'arrive pas a réaliser :

sub Date_ConvTZ {
  print "DEBUG: Date_ConvTZ
"  if ($Curr{"Debug"} =~ /trace/);
  my($date,$from,$to,$level)=@_;
  if (not Date_Split($date)) {
    my $err = "date passed in ('$date') is not a Date::Manip object";
    if (! $level) {
      croak $err;
    } elsif ($level==1) {
      carp $err;
    }
    return "";
  }

Je l'ai chercher par rapport au message d'erreur et je n'ai aucune idée d'où ca peut venir.

Merci pour vos reponses

lami20j · Answer

Ben, justement, ce que j'ai besoin c'est ton script, en fait la partie qui contient $date1

Et attention à ton test qui est fait sur Date_Split et pas sur Date::Manip
  if (not Date_Split($date)) {
    my $err = "date passed in ('$date') is not a Date::Manip object";

c'est quoi Date_Split?
affiche le script complet pas seulement la fonction.

rev · Answer

Le code que je t'ai mis au dessus, c'est la fonction de Manip.pm qu'il n'arrive pas realiser avec le ParseDate de ton code(et du mien), c'est peut etre pas utile, mais ca pourrai aider qqun a comprendre pourquoi il m'affiche cette erreur.

Sinon si tu veux mon script le voila :

#!/usr/bin/perl5.8.0

use strict;use warnings;
use Date::Manip;
use Date::Calc qw(Delta_Days);

my $date1 = `openssl x509 -in XXXX.crt -enddate -noout`;
$date1=~s/notAfter=//;
$date1=~s/GMT//;

my $date2 = localtime(time);
$date2 =~s/Mon//;
$date2 =~s/Tue//;
$date2 =~s/Wed//;
$date2 =~s/Thu//;
$date2 =~s/Fri//;
$date2 =~s/Sat//;
$date2 =~s/Sun//;

$date2 =~s/^[ 	]+//;

my $d1 = ParseDate($date1);
my $d2 = ParseDate($date2);

my ($a1,$m1,$j1,$H1,$M1,$S1) = UnixDate($d1,"%Y","%m","%d","%H","%M",&quot,"%S");
print "$a1,$m1,$j1,$H1,$M1,$S1";
print "
";

Je n'ai pas continuer sachant qu'il m'affiche deja une erreur

Enfin le mien ou le tiens de code ca ne change rien, il met l'erreur dans les 2 au meme moment, celui du ParseDate

Et encore merci pour ta patience !

rev · Answer

Et meme en essayant un code aussi simple que ca :

#!/usr/bin/perl

use strict;use warnings;
use Date::Manip;

my $date1 = "Sep 10 12:25:32 2010";
my $d1 = ParseDate($date1);

Il me met toujours la meme erreur :

date passed in ('2010091012:25:32') is not a Date::Manip object at test3.pl line 7

Pour bien te montrer que peut importe $date1, c'est le ParseDate qui pose problème

lami20j · Answer

Bon, je vois que tu veux tenir ton code secret.

Je teste ton code et il n'y a pas d'erreur

lami20j@debserv:~/trash$ cat ccm.pl
#!/usr/bin/perl
#
use strict;use warnings;
use Date::Manip;
#
my $date1 = "Sep 10 12:25:32 2010";
my $d1 = ParseDate($date1);
print "$d1
";
lami20j@debserv:~/trash$ perl ccm.pl
2010091012:25:32donc l'erreur viens peut être du traitement apprès Date::Manip

lami20j · Answer

affiche aussi perl -MDate::Manip -e 'print "$Date::Manip::VERSION
"'pour voir si on a la même version de Date::Manip

rev · Answer

Mon code n'es pas secret et je te l'ai afficher au dessus, je choppe $d1 avec la commande openssl, c'est en faite la date de fin d'un certificat. 
J'ai la version 5.48, aparemment la derniere que j'ai telecharger sur le site CPAN

Je pense juste que l'erreur ne vient pas du code, sachant que chez toi ca marche et pas chez moi, ce que je comprend pas c'est pourquoi ?

lami20j · Answer

Alors, affiche le résultat de
#!/usr/bin/perl
use strict;use warnings;

my $dd;
my $d = "Sep 10 12:25:32 2010";
print "$d
";
print $dd if ($dd =$d)=~s/(.)/ord($1)/eg;
print "
";mais que la source de récupération de ta variable ne change pas

rev · Answer

Je comprends pas ton code mais je l'ai executer en esperant  que ca puisse aider a resoudre le probleme :D

Ca m'affiche comme résultat :

[admin@XXXX]$ perl test3.pl
Sep 10 12:25:32 2010
831011123249483249505850535851503250484948

lami20j · Answer

J'ai la version 5.48, aparemment la derniere que j'ai telecharger sur le site CPAN 

bon, moi j'ai la version 5.44,

je vais télécharger la version 5.48 pour tester chez moi

rev · Answer

Merci !
Tu es un peu mon cadeau de noel :D
(k)

[Perl] Comparer deux dates

24 réponses

Discussions similaires

Newsletters