Conversion shadowexpire en date

Bonjour,

J'essaye de faire un script qui convertirait le shadow expire en date :

Code:

---

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:

---

Usage: Date::Calc::Mktime(year, month, day, hour, min, sec) at ./shadow_expire.pl line 12, <STDIN> line 1.

---

Merci de votre aide

au lieu de fournir en paramètre une déclaration de variable (my $year, ...), fourni des valeurs de paramètres...

Avec DateTime c'est plus simple :

Code:

---

1 2 3 4 5 6 7 8 9 10

#!/usr/bin/perl use warnings; use strict; use DateTime; print "Entrez le Shadow expire:\n"; my $daysSince1970 = <STDIN>;     my $date = DateTime->new (year => 1970)->add(days => $daysSince1970); print "$date\n";

---

Mais pour ce shadowexpire 14942 j'obtient le résultat suivant : 2010-11-29T00:00:00

Comment faire un split pour n'avoir que l'annèe, le mois et le jour dans mon cas ?

Merci de votre aide

Je répond à moi même pour shminblik

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl use warnings; use strict; use DateTime; print "Entrez le Shadowexpire :\n"; my $daysSince1970 = <STDIN>;   my $exp_date = DateTime->new (year => 1970, month => 1, day => 1 ) ; $exp_date ->add(days => $daysSince1970); #Flag #print "$exp_date\n"; (my $year, my $month, my $day ) = split (/-|T/, $exp_date) ; print "La date d'expiration est la suivante : $day\/$month\/$year\n";

---

la réponse avec le POSIX sans l'objet DateTime est ici :

http://www.developpez.net/forums/d10...bjet-datetime/