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 : 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
 
[/#!/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.