Discussion :

[dubis]

bonjour,

Je suis newbies et pour le fun, j'ai écris ce script pour calculer le nombre de jour entre le premier janvier 1970 et une date pour configurer l'entrée shadowexpire de mon LDAP. Mon soucis est que si j'écris ma date d'expiration en dure dans le script il fonctionne, mais si je veux entrer la date à la main il plante avec le message d'erreur suivant :

Code :

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

Usage: Date::Calc::Delta_Days(year1, month1, day1, year2, month2, day2) at ./Daytime.pl line 17, <STDIN> line 1

Voic mon script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!/usr/bin/perl
use warnings;
use Date::Calc qw(Delta_Days);
# format date is yyyy, mm, dd
print "Entrez la date d'expiration du compte ay format yyyy, mm, dd : ";
@expire_day = <STDIN>;
 
# @expire_day = (2010, 7, 24);
 
@born_unix_day = (1970, 1, 1);
$days = Delta_Days(@born_unix_day, @expire_day);
print "Shadow expire day is : $days \n";
exit 0;

Merci de votre aide

[djibril]

Si l'utilisateur rentre en console : yyyy, mm, dd
<STDIN> retournera à ton programme une chaine de caractère que tu dois parser pour obtenir un tableau.

Voici un code plus propre

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
#!/usr/bin/perl
use warnings;
use strict;
use Date::Calc qw(Delta_Days);
 
# format date is dd/mm/yyyy
print "Entrez la date d'expiration du compte [au format : dd/mm/yyyy] : ";
my $date_utilisateur = <STDIN>;
chomp($date_utilisateur);
 
my ($expire_jour, $expire_mois, $expire_annee) = split(/\//, $date_utilisateur);
 
my @born_unix_day = (1970, 1, 1);
my $days = Delta_Days(@born_unix_day, $expire_annee, $expire_mois, $expire_jour);
print "Shadow expire day is : $days \n";

[dubis]

Merci Djibril,

Mais ton script me donne le message d'erreur suivant :

Code :

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

1
2
3
4
5
6
:~] $ ./Daytime.pl 
Entrez la date d'expiration du compte [au format : dd/mm/yyyy] : 2010, 7, 24
Use of uninitialized value in subroutine entry at ./Daytime.pl line 14, <STDIN> line 1.
Use of uninitialized value in subroutine entry at ./Daytime.pl line 14, <STDIN> line 1.
Argument "2010, 7, 24" isn't numeric in subroutine entry at ./Daytime.pl line 14, <STDIN> line 1.
Date::Calc::Delta_Days(): not a valid date at ./Daytime.pl line 14, <STDIN> line 1.

[djibril]

Lit bien le message d'erreur

Entrez la date d'expiration du compte [au format : dd/mm/yyyy] : 2010, 7, 24

[dubis]

Lit bien le message d'erreur

Désolé
il fonctionne très bien, je vais essayer de l'améliorer en faisant un comparaison avec la date du jour .....

Merci de ton aide

[dubis]

Bonjour,

Pour mon étude personel, j'ai voulu créer iun script qui calcul le nobre de jours entre 2 dates. J'ai donc modifié le précédent comme suit :

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
#!/usr/bin/perl
# first install libdate-calc-perl package or 
#go on the CPAN site to install Date::Calc
use warnings;
use strict;
use Date::Calc qw(Delta_Days);
 
# format date is dd/mm/yyyy
print "Entrez la premiere date [au format : dd/mm/yyyy] : ";
my $date1 = <STDIN>;
chomp($date1);
 
my ($expire1_jour, $expire1_mois, $expire1_annee) = split(/\//, $date1);
 
print "Entrez la deuxieme date [au format : dd/mm/yyyy] : ";
my $date2 = <STDIN>;
chomp($date2);
 
my ($expire2_jour, $expire2_mois, $expire2_annee) = split(/\//, $date2);
 
 
 
my $nbdays = Delta_Days($expire1_annee, $expire1_mois, $expire1_jour, $expire2_jour, $expire2_mois, $expire2_annee);
print "Shadow expire day is : $nbdays \n";

Mon soucis c'est les dates à calculer n'ont pas le bon format et j'ai l'erreur suivante :

Code :

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

1
2
3
4
$ ./nbJours.pl 
Entrez la premiere date [au format : dd/mm/yyyy] : 02/01/2010
Entrez la deuxieme date [au format : dd/mm/yyyy] : 30/06/2010
Date::Calc::Delta_Days(): not a valid date at ./nbJours.pl line 23, <STDIN> line 2

Cela est marrant que ça ne me le faisait pas dans la première version.

Merci de votre aide.

[dubis]

J'ai trouvé en me relisant, il faut écrire la ligne 23 comme ceci :

Code :

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

my $nbdays = Delta_Days($expire1_annee, $expire1_mois, $expire1_jour, $expire2_annee, $expire2_mois, $expire2_jour );

Par contre comment pourrais je faire pour faire un test pour que la première date soit bien inférieure à la deuxième?

Merci