Question

当我这样做时

#!/usr/bin/perl -w

use strict;
use Net::LDAP;
use Data::Dumper;

my $dn="...";
my $password="xxx";

my $ldap = Net::LDAP->new('example.com') or die "$@";
my $mesg = $ldap->bind($dn, password => $password);
if ($mesg->code) { die "uuuu $mesg"; }

$mesg = $ldap->search(
    base => "dc=example,dc=com",
    filter => "(name=LIST)",
    );

print Dumper $mesg;

我得到了

$VAR1 = bless( {
                 'parent' => bless( {
                        ...
                                    }, 'Net::LDAP' ),
                 'entries' => [
                                bless( {
                                         'changes' => [],
                                         'changetype' => 'modify',
                                         'asn' => {
                                                    'objectName' => 'CN=LIST,OU=test group,OU=M,OU=I,DC=example,DC=com',
                                                    'attributes' => [
                                                                      {
                                                                        'type' => 'objectClass',
                                                                        'vals' => [
                                                                                    'top',
                                                                                    'group'
                                                                                  ]
                                                                      },
                                                                      {
                                                                        'type' => 'cn',
                                                                        'vals' => [
                                                                                    'LIST'
                                                                                  ]
                                                                      },
                                                                      {
                                                                        'type' => 'member',
                                                                        'vals' => [
                                                                                    'CN=user1,OU=BaseUsers,DC=example,DC=com',
                                                                                    'CN=user2,OU=BaseUsers,DC=example,DC=com',
                                                                                  ]
                                                                      },
                                      ...

我只想在member中输出对象中的那些

objectCategory: CN=Person,CN=Schema,CN=Configuration,DC=example,DC=com

有谁知道怎么做？

Answer 1

foreach my $entry (@{$mesg->{'entries'}})
{
    my $match = 0;
    my $name = $entry->{'asn'}->{'objectName'};

    foreach my $attr (@{$entry->{'asn'}->{'attributes'}})
    {
        if('member' eq $attr->{'type'})
        {
            foreach my $val (@{$attr->{'vals'}})
            {
                if($val =~ /^CN=.*,CN=.*,CN=.*,DC=example,DC=com$/)
                {
                    $match = 1;
                    last;
                }
            }
         }
    }

    if($match)
    {
        print $name;
    }
}

对于上面的示例数据，这将不返回任何匹配项，因为没有“成员”匹配您指定的搜索模式。此外，我不确定您是否要输出对象名称（根据我的代码）或匹配的字符串。如果后者不需要$match，只需在最里面的块中打印。

在LDAP中搜索条件？

1 个答案: