Discussion :

[Jasmine80]

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;

[djibril]

Pour calculer le temps d'exécution d'un script sous unix/linux, tu lance le script de cette façon :

Code :

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

time perl toto.pl

Sous windows, le mieux est de récupérer le time au début et et à la fin du script.Puis de faire la différence et le mettre au bon format d'affichage

[Invité]

Sous Windows :

Code :

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

1
2
3
4
5
6
my $time=time;
# ...
# code
# ...
$time=time-$time;
print "Temps d'execution en secondes : ", $time, "\n";

Si tu veux plus de détails sur les temps d'exécution de certaines boucles ou instructions, utilise le module Benchmark.

[Jasmine80]

Merci pour vos réponses.

Pour calculer le temps d'exécution d'un script sous unix/linux, tu lance le script de cette façon :

Code :

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

time perl toto.pl

Sous windows, le mieux est de récupérer le time au début et et à la fin du script.Puis de faire la différence et le mettre au bon format d'affichage

Quelle module dois-je utiliser pour changer le format de secondes en H/M/S?

[djibril]

source

[Jasmine80]

... je ne trouve pas

Sommaire > Gestions des dates
Comment afficher une date en perl ?
Comment connaitre le time depuis une date ( L'inverse de localtime et gmtime) ?
Connaitre le nombre de jours entre deux dates
Connaitre une date vieille ou futur
Les modules les plus utilisés pour la gestion des dates en perl

Peut-être le module DateTime cité dans le dernier chapitre.

Code :

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

1
2
  my $formatter = DateTime::Format::Strptime->new(...);
  my $dt = DateTime->new(year => 2004, formatter => $formatter);

Mais cela semble compliqué à utiliser. Est-ce bien ce à quoi tu penses?

[djibril]

Du moment où tu as le nombre de secondes (la durée de ton programme), tu peux la convertir en ce que tu veux.

Moi j'ai une procédure pour cela + code kuzsco :

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
26
27
28
my $timeTotal =time;
# ...
# code
# ...
$timeTotal=time - $timeTotal;
print "Temps d'execution en secondes : ", FormatSeconde( $timeTotal ), "\n";
 
 
sub FormatSeconde {
 
  my ($seconde) = @_;
 
  my $une_seconde = 1;
  my $une_minute  = $une_seconde * 60;
  my $une_heure   = $une_minute * 60;
 
  my $heure = int( $seconde / $une_heure );
  my $minute = int( ( $seconde % $une_heure ) / $une_minute );
  $seconde = int( ( $seconde % $une_heure ) % $une_minute );
 
  #                  condition           calcul de la taille
  my $retour
      = $seconde > $une_heure  ? "$heure" . "h$minute" . "min$seconde" . "sec"
      : $seconde > $une_minute ? $minute . "min$seconde" . "sec"
      : $seconde > $une_seconde ? $seconde . " secondes"
      :                           "moins d'une seconde";
  return $retour;
}

[Jasmine80]

Du moment où tu as le nombre de secondes (la durée de ton programme), tu peux la convertir en ce que tu veux.

Moi j'ai une procédure pour cela + code kuzsco :

Oui mais dans ce cas, n'est-il pas préférable d'utiliser le module Date::Calc, comme je le fais dans le script de mon premier message? J'obtiens la même réponse mais sans devoir créer une nouvelle fonction.

[djibril]

J'avais pas fait attention.
Bah écoute, si. Ton exemple est aussi bien. C'est une autre façon de faire.

Par habitude, ce genre de bout de code qui peut être pratique et utilisé dans divers scripts, je le mets dans une procédure.

Du coup, quand t'en as besoin pour x raisons, c'est plus simple à retrouver et à maintenir.
En ce qui concerne ma procédure, je n'utilise pas de modules. C'est la seule différence avec la tienne .

[Jasmine80]

Je vais laisser ainsi, même si je n'utilise pas correctement la fonction et que je dois mettre des 1 pour l'année, le mois et le jour, c'est très rapide. Merci.