Mise en forme d'EPoch

Bonjour

J'ai le script suivant :

Code:

---

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

#!/usr/bin/perl   use POSIX;   use strict; use warnings; my $unixtime1 = 1326703902; my $unixtime2 = mktime (localtime); my $unixtime = $unixtime2 - $unixtime1 ; print "$unixtime\n";   my $readable_time = localtime($unixtime);   print "$readable_time\n";

---

Je ne suis pas satisfait du résultât. En effet, lorsque que je l'ai exécuté il m'a afficher ceci :
24379
Thu Jan 1 07:46:19 1970

Comment faire pour que 24379 affiche 7:46:19. Je préfère avoir des heures et non pas une date avec jours et année, car le script actuel ne dépassera jamais 23 heures il repassera à 0.

Merci de votre aide.

Ok, je pense que je me suis mal exprimé car en plus j'etais devant l'évidence .... :mrgreen:
J'avais mon delta en seconde, il ne faut donc pas que je le transforme en date mais que je le convertisse en heures, minutes et secondes.

Grace à ce lien dans le forum pascal :
http://www.developpez.net/forums/d22...heure-min-sec/ 8O

Mon script est donc devenu comme ceci :

Code:

---

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

#!/usr/bin/perl use POSIX; use strict; use warnings;   my $unixtime1 = 1326703902; my $unixtime2 = mktime (localtime); my $unixtime = $unixtime2 - $unixtime1 ; print "$unixtime\n";   my $heures=int($unixtime / 3600); my $minutes=int(($unixtime % 3600) / 60); my $secondes=int((($unixtime % 3600) % 60));   print "$heures\:$minutes:$secondes\n";

---

Naturellement je ne sais pas ce que c'est le modulus...

Comment pourrais je ajouter un 0 devant les chiffres?
exemple 30:4:45 serait afficher comme ceci 30:04:45

Merci d'avance

La méthode la plus répandue est d'utiliser la fonction printf, dans ce genre là:

Code:

---

printf "%02d:%02d:%02d\n", $heures, $minutes, $secondes;

---

Voir perldoc -f printf pour plus d'informations.

Merci estifilo ....
Il faut que j'arrive à utiliser printf ... :mouarf: