Discussion :

[wiss20000]

salut
je me demande si en perle il y a un format spécifique pour la date et l'heure

par exemple pour faire le cacul de durée entre 05:32:02 et 03:53:15

[MarneusCalgarXP]

Essaye comme ça :

Code :

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

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
 
use Time::Local;
use strict;
 
my $time1 = '05:32:02';
my $time2 = '03:53:15';
 
my ($hour1, $minute1, $second1) = split(/:/, $time1);
my ($hour2, $minute2, $second2) = split(/:/, $time2);
 
my @date = localtime();
my ($day, $month, $year) = @date[3..5];
 
 
my $vtime1 = timelocal ($second1, $minute1, $hour1, $day, $month, $year);
my $vtime2 = timelocal ($second2, $minute2, $hour2, $day, $month, $year);
 
my $difftime = abs($vtime2 - $vtime1);
my $formateddiff = sprintf("%02d:%02d:%02d", (
			($difftime / (60 * 60))	# heures
		, 	($difftime / 60) % 60	# minutes
		, 	($difftime) % 60 )	# secondes
	);
 
print("différence entre $time1 et $time2 : $difftime secondes, soit $formateddiff\n");