Discussion :

[specialfox]

Bonjour,

Je récupère via un script deux intervalles (Uptime) de temps sous cette forme :

Last Saved : 33 Jours 18 Heures 44 Minutes
Uptime : 33 Jours 20 Heures 56 Minutes

Le but est de faire Uptime - Last Saved en PERL mais je ne sais pas comment faire.

J'ai regardé via différents modules :
Time::Interval (version 1.233)
Time:iece (version 1.29)

Mais rien ne correspond. Connaissez vous un module ou une fonction capable de faire cette soustraction.

D'avance merci

Guillaume.

[Lolo78]

Bonsoir,

je ne pense pas que tu trouveras un module capable de lire des durées exprimées sous la forme "33 Jours 18 Heures 44 Minutes". Au minimum, il faudra une phase d'extraction pour récupérer les jours, heures et minutes. Et une fois cela fait, il y a sans doute un module, mais calculer la différence n'est pas bien compliqué.

Exemple sous le debogueur:

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
 
  DB<1> $uptime = "33 Jours 20 Heures 56 Minutes";
 
  DB<2> $saved = "33 Jours 18 Heures 44 Minutes";
 
  DB<3> @up = $uptime =~ /(\d\d)/g;
 
  DB<4> x @up
0  33
1  20
2  56
  DB<5> $up_min = $up[0]*24*60 + $up[1]*60 + $up[2];
 
  DB<6>
 
  DB<6> @sav = $saved  =~ /(\d\d)/g;
 
  DB<7> $sav_min = $sav[0]*24*60 + $sav[1]*60 + $sav[2];
 
  DB<8> print $up_min - $sav_min, " minutes", "\n";
132 minutes

Le mieux est peut-être d'écrire une fonction qui reçoit une durée à ton format en entrée et renvoie une durée en minutes. Tu l'appelles deux fois et tu fais la soustraction.

Démo à la ligne de commande:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
$ perl -e '$uptime = "33 Jours 20 Heures 56 Minutes";
> $saved = "33 Jours 18 Heures 44 Minutes";
>
> sub find_min {
>     my @parts = shift =~ /(\d\d)/g;
>     return $parts[0]*24*60 + $parts[1]*60 + $parts[2];
> }
>
> print find_min($uptime) - find_min($saved), " minutes \n";
> '
132 minutes