Conversion timestamp en date

Bonjour à tous,
On sait calculer le nombre de secondes écoulées depuis 1/1/70.
Quelqu'un connait-il la fonction qui permet de transformer ce nombre de secondes en date?
Merci d'avance
;)

Citation:

---

Envoyé par devjcc

On sait calculer le nombre de secondes écoulées depuis 1/1/70.
Quelqu'un connait-il la fonction qui permet de transformer ce nombre de secondes en date?

---

Code:

---

($sec,$min,$heure,$mjour,$mois,$annee,$sjour,$ajour,$isdst) = gmtime(time);

---

Bon courage ;)

Citation:

---

Envoyé par 2Eurocents

Code:

---

($sec,$min,$heure,$mjour,$mois,$annee,$sjour,$ajour,$isdst) = gmtime(time);

---

Bon courage ;)

---

Merci, mais ceci est valable pour la date en cours.
Là de dessus pas de problème.

:oops: Comment fait-on pour obtenir une date à partir de n'importe quelle variable 'seconde'. Ex: 1190292727 doit donner 2007-09-20. ?
Merci

Utilisation du module Time::local:

http://perldoc.perl.org/Time/Local.html

Code:

---

1 2 3 4 5

use Time::Local 'timelocal_nocheck';   # the 10,000,000th second since 1970! print scalar localtime timelocal_nocheck 10000000,0,0,1,0,70;

---

Citation:

---

Envoyé par devjcc

Merci, mais ceci est valable pour la date en cours.
Là de dessus pas de problème.

:oops: Comment fait-on pour obtenir une date à partir de n'importe quelle variable 'seconde'. Ex: 1190292727 doit donner 2007-09-20. ?
Merci

---

Bah ... il suffit de remplacer "time" par 1190292727.

Attention, il faut ajouter 1900 à la variable $annee et 1 à la variable $mois pour que leurs valeurs soient exploitables.

La mise en forme finale est de ton ressort. ;)


Sinon, il y a toutes les solutions passant par des modules, dont DateTime::Format::Epoch, par exemple ...

Bon courage.

En fait, je viens de trouver la solution sans utiliser de lib supplémentaire.

Il suffit de recréer un tableau

Code:

---

@date=gmtime($NombreDeSeconde);

---

et de faire l'extraction habituelle des éléments de date.

Merci

ok, sinon Time::Local fait partie du Core, autrement dit il est installé d'office avec Perl, donc pas besoin d'installer quoi que ce soit ;)