différence entre deux date (perl sous unix)

Bonjour,

J'ai actuellement un programme écrit en Perl qui prend en entrée un nombre négatif ou positif et qui me renvoie une date qui correspond à la date système + ou - le paramètre.

Code:

---

1 2 3 4 5

#!/usr/bin/perl use strict; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()+(3600*24*$ARGV[0])); printf("%02d/%02d/%02d\n",$mday,$mon+1,$year-100);

---

Ma question est la suivante : au lieu de prendre la date système, j'aimerai ajouter un deuxième paramètre au programme correspondant à une date.
Je n'arrive cependant pas à trouver une fonction me permettant de transformer une chaine de caractère en objet time qui sera accepté par la fonction localtime.

Pouvez vous m'aider ?

Merci par avance

Il faut parser la string puis utiliser timelocal() du module Time::Local (présent dans le CORE), mais une meilleure solution serait de regarder du côté du CPAN, par exemple DateTime propose un ensemble de module de parsing de date, qui accepte plus ou moins tous les formats.

--
Jedaï

Bonjour,

Merci pour votre réponse.

A priori je n'ai pas accès au CPAN, il ne me trouve pas les éléments qu'il faut :

Code:

---

1 2	Can't locate DateTime.pm in @INC (@INC contains: /usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2 /usr/opt/perl5/lib/site_perl .) at calculdate2.pl line 4.

---

Ensuite j'ai essayé d'utiliser timelocal mais ca n'a pas l'air de bien marché:

Code:

---

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

if ( $ARGV[1] != "" ) { @date = split('/',$ARGV[1]); $time = timelocal(0,0,0,$date[0],$date[1],$date[2]); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time+(86400*$ARGV[0])); printf("%02d/%02d/%02d\n",$mday,$mon,$year-100); } else{ $time = time(); my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time+(86400*$ARGV[0])); printf("%02d/%02d/%02d\n",$mday,$mon+1,$year-100); }

---

calculdate2.pl +3 27/02/08 --> il me trouve 30/02/08 8O

D'ailleurs je ne comprends pas bien ce que $mon+1 et $year-100 vient faire dans le code d'origine.

Comment puis je résoudre ce problème?

Citation:

---

A priori je n'ai pas accès au CPAN, il ne me trouve pas les éléments qu'il faut :
Can't locate DateTime.pm in @INC (@INC contains: /usr/opt/perl5/lib/5.8.2/aix-thread-multi /usr/opt/perl5/lib/5.8.2 /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi /usr/opt/perl5/lib/site_perl/5.8.2 /usr/opt/perl5/lib/site_perl .) at calculdate2.pl line 4.

---

Ce message te dit simplement que tu n'as pas installé le module DateTime.pm .
Tu dois dans un premier temps le télécharger sur le CPAN, ton script ne le fera pas pour toi :P.

http://perl.developpez.com/faq/?page=sectionC32

Citation:

---

Envoyé par Jasmine80

Ce message te dit simplement que tu n'as pas installé le module DateTime.pm .
Tu dois dans un premier temps le télécharger sur le CPAN, ton script ne le fera pas pour toi :P.

---

Surtout ne l'installe pas à la main : ce module a un grand nombre de dépendances.

localtime() génère un numéro de mois commençant à 0 (d'où le $mon + 1), et timelocal() prend le même format que localtime(), du coup tes dates sont correctes (le 02 devrait être 03).

--
Jedaï

Il y a quelque chose que je ne comprends pas :

si je laisse month+1, 27/02/08 + 3j doit me donner 01/03/08 et non 30/03/08... où est l'erreur?

Citation:

---

Envoyé par Jasmine80

Ce message te dit simplement que tu n'as pas installé le module DateTime.pm .
Tu dois dans un premier temps le télécharger sur le CPAN, ton script ne le fera pas pour toi :P.

http://perl.developpez.com/faq/?page=sectionC32

---

donc je ne peux pas utiliser cette librairie: je n'ai pas la main sur ce qui est installé ou non sur ce serveur.

Citation:

---

Envoyé par falcon

Il y a quelque chose que je ne comprends pas :

si je laisse month+1, 27/02/08 + 3j doit me donner 01/03/08 et non 30/03/08... où est l'erreur?

---

Je te rappelle que timelocal prend le même format d'entrée que la sortie de localtime...

--
Jedaï

désolé mais je ne comprend toujours pas ce que tu veux me dire... :(

Cela signifie que la fonction localtime renvoie des valeurs sous un certain format et que timelocal prend en entrée le même format.

Citation:

---

localtime() génère un numéro de mois commençant à 0 (d'où le $mon + 1), et timelocal() prend le même format que localtime()

---

Citation:

---

27/02/08 + 3j doit me donner 01/03/08 et non 30/03/08... où est l'erreur?

---

02 : mois de mars => 31 jours.



Revoie la documentation associées à ces deux fonctions
http://perldoc.perl.org/functions/localtime.html
http://perldoc.perl.org/Time/Local.html

Si tu lui donnes un numéro de mois égal à 2, il pense qu'il est en Mars... alors que tu voudrais qu'il pense être en Février, la solution correcte est :

Code:

---

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

#!/usr/bin/perl use strict; use warnings; use Time::Local qw(timelocal); use POSIX qw(strftime);   my $time; if ( @ARGV == 2 ) { my ($day, $mon, $year) = split '/', $ARGV[1]; $time = timelocal(0, 0, 0, $day, $mon - 1, $year - 1900); } else { $time = time(); }   print strftime("%d/%m/%Y\n", localtime($time+(24*3600*$ARGV[0])) );   __END__

---

(Cette version prend et renvoie des dates avec une année complète, on est au début du vingt-et-unième siècle, ce n'est pas une bonne idée d'utiliser deux digits)


--
Jedaï

ok !!! :D Quand tu parlais du "format" de la méthode, je pensai à la syntaxe, aux nombres d'arguments mais pas à la codification des mois et années ;)

merci beaucoup :king: