Perl - Basic Query
#!/usr/bin/perl -w
use strict;
use Net::LDAP;
my($ldap) = Net::LDAP->new('ldap.staff.plugged.com.au') or die "Can't bind to ldap: $!\n";
$ldap->bind;
my($mesg) = $ldap->search( base => "dc=pisoftware,dc=com",
filter => '(objectclass=*)');
$mesg->code && die $mesg->error;
my($entry);
map { $_->dump } $mesg->all_entries;
# OR
foreach $entry ($mesg->all_entries) { $entry->dump; }
$ldap->unbind;
|