LDAPを使用してCNを抽出していますか？

Question

私はCNの使用正規表現を出力し、このコード

#!/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"; 
} 

持っている：私がある場合は構造

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

は、だから私は疑問に思って見ることができるDumperを使用

aaaa 
bbbb 
cccc 
... 

を正規表現を使用するのではなく、これらのCNを抽出するための「LDAP」方法が増えていますか？

アップデート：Javsに基づいて

は、これが解決策である答えます。

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

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

Answer 1

次のことが可能です。そして、このようなあなたの属性にそれを使用

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

を：あなたが実現しない

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

Answer 2

：

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

はハッシュのこの配列を取得しますCNは通常、LDAPディレクティブの属性です？

戻されたすべてのオブジェクトの属性CNを照会するだけではどうですか。その後、解析は必要ありません。