benchmark LDAP avec commande time
Bonjour à tous!
Je suis actuellement en stage et je fait des test sur ma maquette OpenLDAP comprenant 2 proxy et 3 serveurs multi maitre derriere.
J'ai deja créée un petit script pour tester ma disponibilité que voici:
Code:
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
|
[/#!/usr/bin/perl -w
use Net::LDAP;
use strict;
my $mesg;
while (1)
{
#liste de mes serveurs
my $adrServ=['ldap://proxyldap1','ldap://proxyldap2'];
my $ldap = Net::LDAP->new($adrServ) or die "erreur LDAP: Impossible de contacter l'annuaire ($adrServ)";
$mesg=$ldap->bind ( "cn=admin,dc=iut-tlse3,dc=fr", password => "toto" );
# requete recherche
$mesg = $ldap->search(base => "dc=iut-tlse3,dc=fr", filter => "(objectClass=*)");
#boucle d'affichage résultat
foreach my $entry ($mesg->all_entries)
{
print "dn: ".$entry->dn()."\n";
}
print "\n";
$ldap->unbind();
} |
J'ai utilisé les bibliothèques Net::LDAP mais maintenant j'aimerais intégrer à ce script la commande systeme : time. J'exécute mon script depuis mon client et je veux récupérer le temps que prend chaque requêtes à l'annuaire dans un fichier texte et ensuite le grapher. j'ai pas trouvé de fonctions perl identiques à la commande time d'unix ...
Si vous pouviez me donner la solution car ça fait un moment que je patoge dans la semoule !
Merci beaucoup à vous!! :)
Pierre.
