Discussion :

[dubis]

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

[Philou67430]

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

[dubis]

Avec DateTime c'est plus simple :

Code :

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

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

[dubis]

Je répond à moi même pour shminblik

Code :

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

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";

[dubis]

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

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