如何使用Perl從LDAP服務器下載用戶列表？

Question

我想從我工作的LDAP服務器上傳用戶列表，作爲公司目錄上傳到我們的wiki中。 如何使用Perl從LDAP服務器下載用戶列表？

謝謝。

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