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

Salut,

google me propose cette réponse :
http://datetime.mongueurs.net/Perl/faq.html#2_5_Comment_comp­arer_deux_dates

Archlinux ... le linux qu'il est bien ! sur archlinux.fr

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 ^^

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 !

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 ;-)

lami20j

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 !

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.

lami20j

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

Le script figure juste au dessus, c'est celui de lami20j,

la ligne 9 est donc =>

my $d1 = ParseDate($date1);

sub Date_ConvTZ {
  print "DEBUG: Date_ConvTZ\n"  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 "";
  }

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.


lami20j

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/^[ \t]+//;

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 "\n";

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);

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\n";
lami20j@debserv:~/trash$ perl ccm.pl
2010091012:25:32

Affiche aussi

perl -MDate::Manip -e 'print "$Date::Manip::VERSION\n"'

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 ?

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\n";
print $dd if ($dd =$d)=~s/(.)/ord($1)/eg;
print "\n";

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

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
lami20j