#!/usr/bin/env perl


use strict;
use warnings;

use Net::LDAP;

my $ldap = Net::LDAP->new('192.168.9.111');
my $mesg = $ldap->bind('cn=root,dc=lomonosov,dc=parallel,dc=ru', password => 'rootpw');

$|=1;

print "Searching for uids less than 1000 and gt 500... ";

$mesg =
    $ldap->search(
        base => "ou=slurm,dc=lomonosov,dc=parallel,dc=ru",
        filter => "&(cn<=1000)(cn>=500)"
    );

$mesg->code && die $mesg->error;

print "Ok\nFound: ";

print join ", ", map $_->get_value("cn"), $mesg->entries;

##</code><code>##

Searching for uids less than 1000 and gt 500... Ok
Found: 

##</code><code>##

fisher% ldapsearch -h 192.168.9.111 -D "cn=root,dc=lomonosov,dc=parallel,dc=ru" -w "rootpw" -b "ou=slurm,dc=lomonosov,dc=parallel,dc=ru" "&(cn>600)(cn<1000)" |tail -3

# numResponses: 145
# numEntries: 144