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