Discussion :

[ksper45]

Bonjour,

dans un script shell je souhaiterai réaliser une fonction perl ou shell qui me permette de rajouter ou d'enlever n mois à la date courante en ayant n en paramètre.

je ne maitrise pas du tout Perl et je ne sais pas si ça serai plus simple qu'en Shell.

Par exemple , aujourd'hui nous sommes le 20071106. je souhaite enlever 6 mois à la date nous serions le 20070506.


Comment le faire d'une manière simple en appelant Perl dans mon script unix?


Merci d'avance

[MarneusCalgarXP]

Pourquoi ne pas le faire en shell unix directement ?

Code :

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

date -d '+6 month'

résultat:

Code :

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

1
2
 
Wed May  7 10:14:03 CEST 2008

ou avec une variable

Code :

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

1
2
3
4
5
 
#!/bin/ksh
n=3
newdate=`date -d "+${n} month"`
echo "${newdate}"

[ksper45]

Pourquoi ne pas le faire en shell unix directement ?

Code :

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

date -d '+6 month'

résultat:

Code :

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

1
2
 
Wed May  7 10:14:03 CEST 2008

ou avec une variable

Code :

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

1
2
3
4
5
 
#!/bin/ksh
n=3
newdate=`date -d "+${n} month"`
echo "${newdate}"

J'aurais bien aimé pouvoie utilisé cette solution mais le date de mon ksh n'a pas l'option -d. donc je ne peux pas l'utiliser.

Avez vous une autre solution?

Merci d'avance

[MarneusCalgarXP]

etrange, sur quel OS tourne ton script ? (sinon on peut le faire en perl, mais autant rester tout en shell ^^)

[ksper45]

ma version est :
SunOS 5.8 Generic_117350-43 sun4u sparc SUNW,Sun-Fire-V440

et surtout la version de la fonction date est trés vieille.

Donc si vous pouviez me trouver la solution en perl ça serait trés bien.

je sais que sur d'autres KSH votre solution marche mais pas la et je n'ai pas la possibilité de prendre une version plus récente.

[MarneusCalgarXP]

alors le voici

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
#!/usr/bin/perl
use strict;
use warnings;
use Time::Local 'timelocal_nocheck';
 
### Lecture paramètres
my $months = shift(@ARGV) or die("usage : $0 <+/-MONTH>\n");
 
### récupération date courante
my (undef, undef, undef, $day, $month, $year) = localtime();
 
### reconstruction date voulue (en ajoutant les mois passés en paramètre)
my $timestamp = timelocal_nocheck(0, 0, 0, $day, $month + $months, $year);
 
### on récupère les composants de la date voulue
(undef, undef, undef, $day, $month, $year) = localtime($timestamp);
$year += 1900; # l'année retournée par localtime est relative à l'année 1900
$month += 1; # le mois est dans l'intervalle 0..11. pour l'affichage, nous souhaitons 1..12
 
### on l'affiche au format souhaité
printf("%04d%02d%02d", ($year, $month, $day));

utilisation : "date.pl +3" ou "date.pl -3"

[MarneusCalgarXP]

Je viens de me rendre compte d'un bug dans timelocal_nocheck (l'année ne s'incrémente pas), donc voici une version plus rustique mais qui a le mérite d'être opérationnelle

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
27
28
29
30
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
### Lecture paramètres
my $months = shift(@ARGV) or die("usage : $0 <+/-MONTH>\n");
 
### récupération date courante
my (undef, undef, undef, $day, $month, $year) = localtime();
 
### on ajoute le mois
$month += $months;
$month += 1; # le mois est dans l'intervalle 0..11. pour l'affichage, nous souhaitons 1..12
$year += 1900; # l'année retournée par localtime est relative à l'année 1900
 
# on effectue les opérations nécessaires pour remettre la date dans le bon intervalle
while ($month > 12) { 
	$year ++;
	$month -= 12;
}
 
while ($month < 1) {
	$year--;
	$month += 12;
}
 
# on affiche la date finale
printf("%04d%02d%02d", ($year, $month, $day));

[ksper45]

Bonjour,
Merci de la réponse mais le programme ne marche pas :

Si j'enlève 12 mois avec le programme j'obtiens :
date aujourd'hui : 20071108
résultat de date.pl -12 : 20071108

Et si je rajoute 5 mois :
date aujourd'hui : 20071108
résultat de date.pl +5 : 20070408

Il ne gère pas l'année en fait.

je ne connais rien en Perl pour corriger cela si quelqu'una une idée.

Merci d'avance

[ksper45]

Paardon je n'avais pas vu le correctif........

J'avais pas rafraichi la page le bougre.....

Merci pour ton correctif.

[ksper45]

Je viens de me rendre compte d'un bug dans timelocal_nocheck (l'année ne s'incrémente pas), donc voici une version plus rustique mais qui a le mérite d'être opérationnelle

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
27
28
29
30
 
#!/usr/bin/perl
 
use strict;
use warnings;
 
### Lecture paramètres
my $months = shift(@ARGV) or die("usage : $0 <+/-MONTH>\n");
 
### récupération date courante
my (undef, undef, undef, $day, $month, $year) = localtime();
 
### on ajoute le mois
$month += $months;
$month += 1; # le mois est dans l'intervalle 0..11. pour l'affichage, nous souhaitons 1..12
$year += 1900; # l'année retournée par localtime est relative à l'année 1900
 
# on effectue les opérations nécessaires pour remettre la date dans le bon intervalle
while ($month > 12) { 
	$year ++;
	$month -= 12;
}
 
while ($month < 1) {
	$year--;
	$month += 12;
}
 
# on affiche la date finale
printf("%04d%02d%02d", ($year, $month, $day));

Merci à toi.
La réponse marche trés bien.

[MarneusCalgarXP]

n'oublie pas de cliquer sur

[djibril]

N'oubiez pas de regarder la FAQ pour la gestion des dates, il y a des exemples de scripts dans la section astuces et divers