REJIK

Код: Выделить всё

#!/usr/bin/perl

use Net::LDAP;
use Net::LDAP::Entry;
use POSIX;

Конектимся

   unless ($ldap = Net::LDAP->new($ldap_host))
   {
    print "Can't connect to ldap server $ldap_host: $@\n";
    exit;
   }

   $mesg = $ldap->bind($ldap_login,password =>$ldap_pass);
   if($mesg->code())
    {
     print "Can't LOGIN to ldap server $ldap_host: ". $mesg->error;
     exit;
    }

Делаем запрос

   $mesg = $ldap->search(
                         base   => $base,
                         filter => $filtr
                        );
   if($mesg->code())
   {
    print "Can't SEARCH in ldap server ($_[1] $_[2]): ". $mesg->error;
    exit;
   }


разбираем результат
$max = $mesg->count;
   for ( $i = 0 ; $i < $max ; $i++ )
   {
    unless($mesg->entry($i)->exists("uid"))
    {
     if ($mesg->entry($i)->dn() eq "ou=Users,dc=rdw,dc=ru"){next;}
     print STDERR "NO UID in ",$mesg->entry($i)->dn(),"\n";
     next;
    }
 $uid=$mesg->entry($i)->get_value("uid");
 print "DOMEN/$uid\n";
  }