1#!/usr/bin/perl 2 3use strict; 4use warnings; 5use 5.010; 6 7use Net::LDAP; 8use Net::LDAP::LDIF; 9use Net::LDAP::Entry; 10use Data::Dumper; 11 12my $ldap; 13my $base="dc=bar,dc=quux"; 14$base="dc=example,dc=com"; 15 16BEGIN { 17 $ldap = Net::LDAP->new('ldapi://%2ftmp%2fldapi'); 18 my $mesg = $ldap->bind; 19 $mesg->code && die $mesg->error; 20} 21 22END { 23 $ldap->unbind; 24} 25 26 my $mesg = $ldap->search(base => $base, scope => "sub", filter => "(objectClass=inetOrgPerson)"); 27 $mesg->code && die $mesg->error; 28 say $mesg->count." ldap entries"; 29 for (my $i=0 ; $i < $mesg->count ; $i++) { 30 say $mesg->entry($i)->dn(); 31 } 32