Read a value from an array - perl

Question

I have an array defined as below.
I am able to fetch the value for email and uid as mentioned below. How do I get the user display name userdn?
my ($mesg) = $ldap->search(
scope => 'one',
base => $userdn,
filter => $filter,
attrs => [ 'email', 'pwdChangedTime', 'uid' ],
);
This is how I read the email ID and uid, but I'm unable to read the user display name.
foreach my $entry ( $mesg->all_entries ) {
$email = ${ $entry->get( 'email' ) }[0];
$uid = ${ $entry->get( 'uid' ) }[0];
$uName = ${ $entry->get( 'userdn' ) };
}

Answer 1

This is not really about an array, but rather about how to use Net::LDAP. There are no arrays in your example code.
You want to get the userdn property for the items returned from your LDAP query. In order to do that, you need to tell search to fetch those.
A list of attributes to be returned for each entry that matches the search filter.
This means, you need to include userdn in the call to search.
my ($mesg) = $ldap->search(
scope => 'one',
base => $userdn,
filter => $filter,
attrs => [ 'email', 'pwdChangedTime', 'uid', 'userdn' ],
);
Now you can get the userdn.
$uName = $entry->get('userdn')->[0];
I've used the arrow dereference syntax instead of ${ ... }[0] here because I find that easier to read. However, as ysth points out below in the comments, get is deprecated and not documented in the current version of Net::LDAP. It was deprecated in release 0.21 in September 2000, which is currently seventeen years ago.
Instead, you should probably use get_value, which returns the first value of that attribute.
$uName = $entry->get_value('userdn');