我要做的就是搜索用户并在 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";
这是我的输出:
有谁知道我为什么会得到这个?或者知道如何解决?
谢谢!