ldapetl.pl

#!/usr/bin/perl -w

use strict;
use Net::LDAP;

my $ldapserver = '';
my $ldapuser   = '';
my $ldappasswd = '';
my $ldapfilter = '(uid=*)';
my @ldapattrs  = ('cn', 'uid', 'description', 'displayname', 'l', 'mail', 'title', 'mobile', 'telephonenumber', 'facsimileTelephoneNumber',
                  'employeeNumber', 'givenName', 'sn', 'costCenterNum', 'country', 'st', 'personalArea', 'personalSubArea', 'department',
                  'departmentNumber', 'postalCode', 'manager', 'het');

my $ldapinst = Net::LDAP->new($ldapserver);
my $bindresult = $ldapinst->bind($ldapuser, password => $ldappasswd);

my $mesg = $ldapinst->search(base => 'ou=Users,dc=example,dc=com', filter => $ldapfilter, attrs => [@ldapattrs]);

foreach my $entry ($mesg->entries()){
  foreach my $ldapattr(@ldapattrs){
    if (defined($entry->get_value($ldapattr))){
      print $entry->get_value($ldapattr) . " ";
    } else {
      print " ";
    }
    printf("\xbb ");
  }
  print "\n";
}

$ldapinst->unbind;