[CGI-BD]Récupérer le temps d'éxécution d'une requête

Version imprimable

17/10/2005, 08h48
LE NEINDRE

[CGI-BD]Récupérer le temps d'éxécution d'une requête

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

Salut

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

Code:

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;

@++

17/10/2005, 11h29
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 ?
17/10/2005, 13h46
GLDavid

J'admet ne pas avoir tellement réfléchi à la question :oops: . 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.

@++
17/10/2005, 13h48
LE NEINDRE

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

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:

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 !!