perl - 如何在 OU 中列出 OU？

Question

我想输出测试 OU 中的所有 OU。

my $mesg = $ldap->search(
    base => "OU=test,OU=company,DC=example,DC=com",
    scope => 'sub',
    filter => '(objectClass=*)',
    attrs => ['*'],
    );

print Dumper $mesg->entry;

当我像这样进行搜索时，我只获得有关测试 OU 的信息，而不是它包含哪个 OU。

有什么想法可以做到这一点吗？

Answer 1

$mesg 将包含条目数组。您正在尝试打印搜索结果中的第一个条目。

尝试，

print Dumper $mesg

还将您的过滤器更改为

filter => '(objectClass=organizationalUnit)'

ldapsearch 从基本 DN 开始搜索，包括 basedn。这里 OU=test,OU=company,DC=example,DC=com 也是组织单位，因此该条目将作为结果中的第一个条目出现，您只需打印该条目。