Discussion :

[LE NEINDRE]

Bonjour à tous,

J'ai dans un premier temps posté chez vos très sympathiques confrères du forum mysql, mais sans réponses, je tente sur le non moins sympathique forum perl, qui est probablement plus approprié,à y réfléchir.

Je voudrais récupérer (dans mons cgi perl) le temps mis pour l'éxécution d'une requête sur une base mysql. Comment faire ???

Merci et bonne matinée

[GLDavid]

Salut

Je te propose cette solution bien que je n'en sois pas très satisfait :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
my $t1 = time;
$sth = $db->prepare("select * from entreprise");
$sth->execute();
while (my $ref = $sth->fetchrow_hashref()) {
	printf "Nom de l'entreprise %s\n", $ref->{'NomEnt'};
}
my $t2 = time;
my $t = $t2-$t1;
printf "Résultat retourné en %s s\n", $t;

@++

[LE NEINDRE]

Bonjour GLDavid,
Merci pour ta réponse !
J'avais pensé à cette solution mais une question cependant m'a retenu de le faire ?
Si une requête dure 0,032 sec.
Le temps d'appeler la fonction time au début et à la fin, et de faire la soustraction, est ce que j'introduirai une grande marge d'erreur ?Est-ce que le temps passé pour les 3 calculs sont négligeables devant le temps passé par ma requête ?

[GLDavid]

J'admet ne pas avoir tellement réfléchi à la question . Comme je te l'aiindiqué, je trouve ma solution pas trop jojo mais c'est la plus naturel qui m'est venu. D'autant plus qu'après avoir lu la doc de DBD::MySQL, je n'ai rien trouvé pour répondre plus judicieusement à ta question.
Concernant la marge d'erreur, je l'estime négligeable. Perl ne nécéssite quand même pas de grandes ressources pour faire une soustraction.

@++

[LE NEINDRE]

Ok,
Alors je vais opter pour cette solution !
Merci de t'être pencher la dessus.
Bonne après-midi

[LE NEINDRE]

Bonsoir,

Je me permets de reposter sur ce thread pour le finaliser.
J'ai appliquer la solution de GLDavid mais au lieu d'utiliser time qui récupère le nombre de secondes depuis ... 1970 ??, j'ai utilisé le module Time:HiRes qui permet de récupérer les microsecondes depuis la même époque. C'était plus utile pour afficher les temps de réponses des acès de base de données.

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
 
my $t1=Time::HiRes::gettimeofday();
 
      my $req=$dbh->prepare($Requete);
      $req->execute();
      while(my $ref=$req->fetchrow_hashref())
      {
            @{$Commande[$i]}{@ChampsCommande}=@$ref{@ChampsCommande};
            #print "@{$Commande[$i]}{@ChampsCommande}<BR>";
            $i++;
      }
      $req->finish();
 
 
my $t2=Time::HiRes::gettimeofday();
$requete_time=sprintf ("Résultats retournés en: %d ms\n", ($t2-$t1)*1000);

Bonne soirée à tous !!