如何使用 Perl 从 LDAP 检索所有组

Question

我有一个 Perl 脚本，它绑定到 LDAP 服务器并检索所有用户。到目前为止，它运行良好，但我想过滤该搜索以收集所有组。一旦我拥有所有组，用户就可以选择这些组之一，我将只向他显示属于该组成员的用户。我该如何进行这些查询？我尝试了这个：

my $mesg = $ldap->search(
    base => $base,
    filter => '(objectclass=user)',
    attrs => ['memberOf']
);

但是有些组会重复，我将不得不手动过滤结果（我想避免这种情况）。那么第二个查询呢？

Answer 1

cn 获取所有组的过滤器是“(objectclass=group)”，您可以仅检索一个组织单位 (scope => 'one') 或所有子组织 (scope => 'sub') 中的组）

$mesg = $ldap->search(  filter=>"(&(objectclass=group)(cn=the group choosen by the user)", 
                        base=>"ou=Monou,dc=societe,dc=fr"
                        scope=>"sub"
                        attrs=> ['cn', 'member']);
@entries = $mesg->entries;
foreach $entry (@entries)
{
    $entry->dump;
    @member = $entry->get_value("member");  # returns all members 
}

有关更多帮助，请参阅 Perl-ldap 简介

---

编辑

如下您正在寻找的过滤器是：

(&(objectClass=user)(memberof=CN=Mongroupe,OU=MonOU,DC=societe,DC=fr))

Answer 2

使用 objectclass=* 获取全部。

my $msg = $ldap->search(base => $dn,
            scope => 'one',
            filter => "(objectclass=*)");
$msg->all_entries;