Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
$ldap = Net::LDAPS->new(HOST,port => PORT,timeout => TIMEOUT) or die " +Can't connect to LDAP server " . HOST; $ldap->bind(DN, password => PASSWORD, version => 3); open(S, "subnet.log"); while (<S>){ chomp $_; my $results = timeit( 1, q{my $base = $_; my $look= $ldap->search(base => $base, filter =>('objectClass=dNIPIPAddressConfiguration'), attrs => ["cn"])} ); print "$_:" . timestr($results) . "\n"; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: benchmark ldap search
by Old_Gray_Bear (Bishop) on Nov 03, 2003 at 16:32 UTC |