Gestion de la date en PERL

**ciols** · 01/10/2015, 16h16

Bonjour,

Je n'arrive pas à manipuler mes dates correctement. Voici un exemple bien plus explicite :

Code :

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

1
2
3
4
$date_heure = "2015-10-01 15:40:00";
print $date_heure."\n";
$date_heure = strftime("%Y-%M-%d %H:%M:%S", gmtime($date_heure - 7*86400));
print $date_heure."\n";

Dans cet exemple, qui ne marche pas, je voudrais obtenir la même heure exactement une semaine avant càd 2015-09-24 15:40:00

Cependant je n'ai rien trouvé sur le net qui me permette de résoudre ce problème !

Merci d'avance.

**Gardyen** · 01/10/2015, 16h49

tu mélanges le format des différentes fonctions, mais sinon c'est une façon correcte de faire

date_heure est une chaîne de caractères, mais tu l'utilises comme nombre quand tu fais la soustraction, ce qui donne un résultat bizarre

il te faut la retransformer en nombre avant une telle opération

il existe plusieurs façons de faire, explore les modules Date

**ciols** · 01/10/2015, 17h10

Merci pour ta réponse, je vais me pencher sur les différentes fonctions et je reviendrais si besoin est.

Je ne reviens cependant que dans 2 semaines.

**Lolo78** · 02/10/2015, 00h12

Cette partie est fausse:

Code :

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

1
2
 
gmtime($date_heure - 7*86400)

Pour que ça marche, il faut convertir $data_heure en une timestamp (un entier représentant le nombre de secondes écoulés depuis l'"époque" soit le 01-01-1970).

Voici un exemple sous le débogueur Perl:

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
 
  DB<1>  use Time::Local;
 
  DB<2> $date_heure = "2015-10-01 15:40:00";
 
  DB<3>  ($y, $m, $d, $h, $min, $s) = split /[ :-]/,  $date_heure; # un smiley dans une regex, c'est la classe, non?
 
  DB<4> x  ($y, $m, $d, $h, $min, $s)
0  2015
1  10
2  01
3  15
4  40
5  00
  DB<5> $m--; # mois numérotés à partir de 0, il faut retirer un
 
  DB<6> $timestamp = timegm($s, $min, $h, $d, $m, $y);
 
  DB<7> $prev_timestamp = $timestamp - 7 * 24 * 60 * 60;
 
  DB<8> print scalar  gmtime $timestamp;
Thu Oct  1 15:40:00 2015
  DB<9> print scalar  gmtime  $prev_timestamp;
Thu Sep 24 15:40:00 2015

Il te suffit de reformater gmtime $prev_timestamp selon tes besoins, avec strftime ou autrement.

Bon, c'était pour montrer comment faire avec ta méthode (soustraction du nombre de secondes écoulés en 7 jours), mais il existe des tas de modules pour gérer les calculs à ta place, le seul problème étant de trouver celui qui correspond le mieux à tes besoins.

**ciols** · 12/10/2015, 11h36

Bonjour, me voilà de retour.

Tout d'abord merci pour vos réponses.
Je vais me pencher sur les différents modules et voir si certains correspondent plus à mes besoins que d'autres.

Mon but étant de retrouver exactement la même syntaxe qu'au début ("2015-10-01 15:40:00").

Je vous tiens au courant de l'avancée de mes recherches.

timegm ne marche pas. Undefined subroutine. Ma version de perl est en 5.8.8 et sur cpan il me dit de télécharger la version 5.8.0 est ce normal ?

**ciols** · 12/10/2015, 13h52

J'ai bien avancé, j'arrive à faire plus ou moins ce que je veux avec le code ci-dessous :

Code :

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

1
2
3
4
5
6
7
 
$date_heure = "2015-10-01 15:40:00";
print $date_heure."\n";
my ($y, $m, $d, $h, $min, $s) = split /[ :-]/,  $date_heure;
print "avant = ".$y,$m,$d,$h,$min,$s."\n";
($y, $m, $d) = Add_Delta_Days($y, $m, $d, -7);
print "apres = ".$y, $m, $d, $h, $min, $s."\n";

Cependant un problème persiste. Dans mon exemple, quand on enlève 7 jours au premier octobre on tombe le 24 septembre. Jusque la tout va bien sauf que $m vaut 9 et pas 09 ce qui est un peu embêtant pour reformer ma chaîne de caractères.

Avez vous une idée autre que de tester si $m < 10 et si oui ajouter un 0 devant ?

[EDIT] :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
$date_heure = "2015-10-10 15:40:00";
print $date_heure."\n";
my ($y, $m, $d, $h, $min, $s) = split /[ :-]/,  $date_heure;
print "avant = ".$y,$m,$d,$h,$min,$s."\n";
($y, $m, $d) = Add_Delta_Days($y, $m, $d, -7);
print "apres = ".$y, $m, $d, $h, $min, $s."\n";
if ($m < 10) {
  $m = "0".$m;
}
print " y = ".$y.", m = ".$m.", d = ".$d.", h = ".$h.", mn = ".$min.", s = ".$s."\n";
my $mytime = $y.$m.$d.$h.$min.$s;
print "mytime = ".$mytime."\n";
$date_heure = strftime("%Y-%m-%d %H:%M:%S",$s,$min,$h,$d,$m,$y);
print $date_heure."\n";

Affichage :

3915-11-03 15:40:00

Je ne comprends pas le 3915 et le 11 !!!

$y = 2015

et

$m = 10

Je galère un peu pour le strftime aussi, j'ai plutôt du mal à voir comment fournir les variables calculées préalablement pour réunifier la date !

[EDIT2] :

The month (mon), weekday (wday), and yearday (yday) begin at zero, i.e., January is 0, not 1; Sunday is 0, not 1; January 1st is 0, not 1. The year (year) is given in years since 1900, i.e., the year 1995 is 95; the year 2001 is 101. Consult your system's strftime() manpage for details about these and the other arguments.

Tout est là. Idem que pour le $m y'a pas un moyen moins dégueulasse que de traiter le tout avec un if et de modifier la variable suivant les besoins ?

[EDIT3] : Code qui marche mais qui est p-e un peu sale

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
$date_heure = "2015-10-10 15:40:00";
print $date_heure."\n";
my ($y, $m, $d, $h, $min, $s) = split /[ :-]/,  $date_heure;
print "avant = ".$y,$m,$d,$h,$min,$s."\n";
($y, $m, $d) = Add_Delta_Days($y, $m, $d, -7);
print "apres = ".$y, $m, $d, $h, $min, $s."\n";
$m = $m - 1;
if ($m < 10) {
  $m = "0".$m;
}
$y = $y%1900;
print " y = ".$y.", m = ".$m.", d = ".$d.", h = ".$h.", mn = ".$min.", s = ".$s."\n";
my $mytime = $y.$m.$d.$h.$min.$s;
print "mytime = ".$mytime."\n";
$date_heure = strftime("%Y-%m-%d %H:%M:%S",$s,$min,$h,$d,$m,$y);
print $date_heure."\n";

Merci d'avance.