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

我在针对公司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 的相同查询,但无济于事.

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

谢谢阅读

holli

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

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

我需要一份uid列表.

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

编辑补充:我猜这是你想要做的: (|(ou=Personal)(ou=FOO))