Bonjour,

J'essaye de faire un script qui convertirait le shadow expire en date :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
#!/usr/bin/perl
use warnings;
use strict;
use Date::Calc qw(Mktime);
 
print "Entrez le Shadow expire:\n";
my $daysSince1970 = <STDIN>; 
chomp($daysSince1970);
 
$daysSince1970 = Mktime(my $year, my $month, my $day);
print "La date d\'expiration est le \: $day\/$month\/$year\n ";
Apparemment ce n'est pas la bonne manière car j'ai le message d'erreur suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Usage: Date::Calc::Mktime(year, month, day, hour, min, sec) at ./shadow_expire.pl line 12, <STDIN> line 1.
Merci de votre aide