J'ai regardé dans la FAQ les modules manipulant les dates et je suis tombée sur : date-calc

J'aimerais connaitre le temps d'exécution d'un script en h/min/sec.
Existe t'il un module plus approprié?

Sinon, peut-être serait-ce mieux de calculer la différence entre le time de départ et celui à la fin du script puis d'en calculer. Ensuite, il faudrait transformer ce résultat en h/min/sec.

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
#!/usr/local/bin/perl
 
 
use strict;
use warnings;
 
use Date::Calc qw(:all);
 
 
my ($start_hour,$start_min,$start_sec) = Now([+1]);
 
sleep(100);
 
my ($end_hour,$end_min,$end_sec) = Now([+1]);
 
my ($D_y,$D_m,$D_d, $Dh,$Dm,$Ds) =
      Delta_YMDHMS(1, 1, 1, $start_hour, $start_min, $start_sec,
                   1, 1, 1, $end_hour,$end_min,$end_sec);
 
print $Dh." h ".$Dm." min ".$Ds." sec\n";

Merci pour vos conseils;