Perl 脚本 LDAP 搜索返回 Hash 但 $mesg->entry 不返回任何内容

Question

这是我在 StackOverFlow 上的第一个问题，如果我做错了什么，请告诉我。

这是我的脚本：

#!/usr/bin/perl
use Net::LDAP;
use warnings;
use strict;
my($user,$ldap,$mesg,$info,$entry,$x,$y);
$user = $ARGV[0];
$ldap = Net::LDAP->new ("dirproxy.paychex.com") or die "$@";
$mesg = $ldap->search(filter=>"(uid=$user)", base=>"ou=people,o=paychex inc,c=us");
print $mesg; #hash of entry
$info = "$user,,";
$x=$y=' ';
foreach $entry ($mesg->entry)
{
    print "hello?";
    if(length $entry->get_value("payxlocation")) #if > 0
    {
        $x = $entry->get_value("payxlocation");
        $x =~ s/,//g;
    }

    if(length $entry->get_value("organization")) #if > 0
    {
        $y = $entry->get_value("organization");
        $y =~ s/,//g;
    }

    $info = "$user,$x,$y";
}
print $info;

打印 $info 打印“用户，”。问题似乎出在我的 foreach 语句中

foreach $entry ($mesg->entry)

"$mesg->entry" 是空的，因此它会跳过 foreach 并打印用户，而无需其他信息。

Answer 1

foreach $entry ($mesg->entry)

应该是：

foreach $entry ($mesg->entries)

更多关于Net::LDAP::Search的信息，在这里你可以看到entry和entries之间的区别