perl – 用LDAP提取CN？

发布时间：2020-12-16 06:25:48 所属栏目：大数据来源：网络整理

导读：我有这个代码 #!/usr/bin/perluse warnings;use strict;use Net::LDAP;use Data::Dumper;my $dn="CN=...";my $password="xxx";my $ldap = Net::LDAP-new('example.com') or die "$@";my $mesg = $ldap-bind($dn,password=$password);if ($mesg-code) { die "

我有这个代码

#!/usr/bin/perl

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

my $dn="CN=...";
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=test,dc=example,dc=com",filter => "(name=LIST)",);

my $ref = $mesg->entry->get_value("member",asref => 1);
print Dumper $ref;

foreach my $string (@{$ref}) {
    $string =~ /CN=(.+?),.*/;
    print $1 . "n";
}

使用正则表达式输出CN：

aaaa
bbbb
cccc
...

使用Dumper可以看到结构

$VAR1 = [
          'CN=aaaa,OU=test,DC=test,DC=example,DC=com','CN=bbbb,'CN=cccc,

所以我想知道是否有更多“LDAP”方式来提取这些CN,而不是使用正则表达式？

更新：

根据Javs的回答,这是解决方案.

my $ref = $mesg->entry->get_value("member",asref => 1);

foreach my $string (@{$ref}) {
    print ldap_explode_dn($string)->[0]{CN} . "n";
}

解决方法

您可以：

use Net::LDAP::Util qw(ldap_explode_dn);

并在你的属性上使用它,如下所示：

ldap_explode_dn($mesg->entry->get_value('member'));

得到这个哈希数组：

$VAR1 = [
      {
        'CN' => 'aaaa'
      },{
        'OU' => 'test'
      },{
        'DC' => 'test'
      },{
        'DC' => 'example'
      },{
        'DC' => 'com'
      }
    ];

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!