perl - 如何使用 Perl 的 Net::LDAP 进行复杂查询？

Question

我在对我们公司的 LDAP 服务器运行复杂查询时遇到问题。我正在使用以下 Perl 脚本:

use Data::Dumper;
use Net::LDAP;

die "Can't connect to LDAP-Server: $@\n" 
    unless $ldap = Net::LDAP->new( 'xLDAPx' );


foreach my $filter ( 'ou=Personal', 'ou=BAR', 'ou=Personal,ou=BAR', 'ou=Personal,ou=FOO,o=FOO,dc=foo,dc=com' )
{ 
    $mesg = $ldap->search( base => "o=FOO,dc=foo,dc=com", filter => $filter );
    print Dumper($mesg), "\n\n";
}

虽然前两个过滤器起作用(如返回预期值)，但最后一个复杂的过滤器不起作用。它返回一个空数组。真正让我困惑的是，当我将它与 Softerra LDAP Browser 之类的工具一起使用时，完全相同的查询字符串会起作用。

我也使用 PHP 的 ldap_search 尝试了相同的查询& co，无济于事。

有人可以对此有所了解吗？

谢谢阅读

霍利

编辑:
这是服务器的结构:

Server
    ou=FOO
        ou=...
        ou=Personal
            uid=something

我需要一个uid列表。

Answer 1

我想你希望它更像 (&(ou=Personal)(ou=FOO)(o=FOO)(dc=foo)(dc=com)) .
但是你根本不清楚你到底想要什么，所以我不能为你做一个过滤器。

编辑添加:我猜这就是你想要做的:(|(ou=Personal)(ou=FOO))