0

我要做的就是搜索用户并在 Perl 脚本中返回用户的 DN。但是，我的脚本打印的是对哈希的引用，而不是用户的实际 DN。

稍后需要将 DN 放入另一个变量中，因此我需要 DN 正确。

这是我的代码：

use strict;
use warnings;

use Net::LDAPS;
use Net::LDAP;
use Config::Simple;
use Try::Tiny;

#LDAP connection.
my $ldap;

my $hostname = "Hostname";
my $port = 2389;
my $rootDN = "username";
my $password = "password";

#Connect to LDAP
$ldap = Net::LDAP->new( $hostname, port => $port ) or die $@;

#Send username and password
my $mesg = $ldap->bind(dn => $rootDN, password => $password) or die $@;


my $result = $ldap->search(
  base   => "ou=AllProfiles",
  filter => "(cn=Alice Lee)",
  attrs => ['*','entrydn'],
);

my $href = $result;
print "$href\n";

这是我的输出：

在此处输入图像描述

有谁知道我为什么会得到这个？或者知道如何解决？

谢谢！

4

1 回答 1

0

你会得到一个完整的对象，你需要从中获取结果，并从中导航到你想要的。我相信这会起作用，如果确实“ entrydn”是正确的名称。

my $entries = $result->entries;
my $dn = $entries[0]->get_value('entrydn');

（如果您希望返回多个条目，当然您将不得不迭代。如果您可能没有得到任何结果，您也需要检查。）

于 2017-11-01T01:49:10.077 回答