我编写了一个小脚本,它绑定到LDAP服务器并检索所有用户和用户信息。现在,我想编写另一个绑定到LDAP服务器的程序,然后测试给定的登录。我该怎么做呢?
my $ldap = ldapConnect();
my $user = 'user';
my $pwd = 'pwd';
# TEST USER AND PWD BUT HOW?
sub ldapConnect {
my $ldap = Net::LDAP->new('192.168.*.*');
my $password = '***';
$ldap->bind(