Bonjour

J'ai le script suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.