Как я могу скачать список пользователей с сервера LDAP, используя Perl?

Question

Я хочу загрузить список пользователей с сервера LDAP моей работы для загрузки в нашу вики как каталог компании. Как я могу загрузить список пользователей с сервера LDAP, используя Perl?

Спасибо.

Answer 1

Используйте модуль NET :: LDAP .

Небольшой пример из POD :

use Net::LDAP;

$ldap = Net::LDAP->new( 'ldap.bigfoot.com' ) or die "$@";

$mesg = $ldap->bind ;    # an anonymous bind

$mesg = $ldap->search( # perform a search
                       base   => "c=US",
                       filter => "(&(sn=Barr) (o=Texas Instruments))"
                     );
$mesg->code && die $mesg->error;

foreach $entry ($mesg->entries) { $entry->dump; }

$mesg = $ldap->unbind;   # take down session