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

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=FOO,o=FOO,dc=foo,dc=com' )
{ 
    $mesg = $ldap->search( base => "o=FOO,dc=com",filter => $filter );
    print Dumper($mesg),"\n\n";
}

虽然前两个过滤器起作用(如返回预期值),但最后一个过滤器不起作用.它返回一个空数组.让我感到困惑的是,当我使用像Softerra LDAP Browser这样的工具时,完全相同的查询字符串可以正常工作.

我也尝试使用php的ldap_search&合作,无济于事.

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

谢谢阅读

holli

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

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

我需要一份uiD列表.