1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
| #!/usr/bin/perl
use strict;
use warnings;
my $RefDateActuelle = date(); # On recupere la réference d'un hash
my $time = 1346551425.510;
my $RefAutreDate = date($time); # On recupere la réference d'un hash
print "Date actuelle : $RefDateActuelle->{date}\n";
print "Date correspondant au time $time : $RefAutreDate->{date}\n";
sub date {
my $time = shift || time; #$time par defaut vaut le time actuel
my ( $seconde, $minute, $heure, $jour, $mois, $annee, $jour_semaine, $jour_annee, $heure_hiver_ou_ete )
= localtime($time);
$mois += 1;
$annee += 1900;
# On rajoute 0 si le chiffre est compris entre 1 et 9
foreach ( $seconde, $minute, $heure, $jour, $mois, $annee ) {
s/^(\d)$/0$1/;
}
my %date = (
"date" => "$annee$mois$jour $heure:$minute:$seconde",
"heure" => "$heure:$minute:$seconde",
"jour_semaine" => $jour_semaine,
"jour_annee" => $jour_annee,
"hiverOuEte" => $heure_hiver_ou_ete,
);
return \%date;
} |
