小编hol*_*lli的帖子

如何使用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";
}
Run Code Online (Sandbox Code Playgroud)

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

我也尝试过使用PHP ldap_search&co 的相同查询,但无济于事.

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

谢谢阅读

holli

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

Server
    ou=FOO
        ou=...
        ou=Personal
            uid=something
Run Code Online (Sandbox Code Playgroud)

我需要一份uid列表.

perl ldap

5
推荐指数
1
解决办法
1263
查看次数

标签 统计

ldap ×1

perl ×1