Comment puis-je extraire des domaines complets à partir de champs LDAP?

Question

Ce que je dois faire est de changer une chaîne comme "CN = bobvilla, OU = Personnes, DC = exemple, DC = com" (peut avoir beaucoup de DC = dans la chaîne) à "example.com"

J'ai cette méthode, mais il me semble bâclé et je voulais voir si quelqu'un avait une meilleure idée.

my $str = "CN=bobvilla, OU=People, DC=example, DC=com"; 
print "old: $str\n"; 
while($str =~ s/DC=([^,]+)//) 
{ 
    $new_str .= "$1."; 
} 
$new_str =~ s/\.$//; 
print "new: $new_str\n"; 

grâce ~

Answer 1

Il est relativement simple:

my $str = "CN=bobvilla, OU=People, DC=example, DC=com"; 
print "old: $str\n"; 

C'était directement de la question.

Maintenant, nous avons besoin de tous les contrôleurs de domaine:

my @DCs = $str =~ m/DC=([^\s,]+)/g; 

Associez-le en résultat et impression:

my $new_str = join '.', @DCs; 
print "new: $new_str\n"; 

entier "programme":

my $str = "CN=bobvilla, OU=People, DC=example, DC=com"; 
print "old: $str\n"; 

my @DCs = $str =~ m/DC=([^\s,]+)/g; 
my $new_str = join '.', @DCs; 

print "new: $new_str\n"; 

Answer 2

Cela devrait faire le travail:

my $str = "DC=example, DC=com"; 
$str =~ s/DC=//g; 
$str =~ s/,\s/./g; 
print "new: $str\n"; 

Answer 3

est ici une façon

my $str = "CN=bobvilla, OU=People, DC=example, DC=com"; 
@s = split /,\s+/ , $str; 
foreach my $item (@s){ 
    if (index($item,"DC") == 0) {   
     $item = substr($item,3); 
     push(@i , $item) 
    } 
} 
print join(".",@i); 

Answer 4

Dans un seul regex:

$str =~ s/(?:^|(,)\s+)(?:.(?<!\sDC=))*?DC=(?=\w+)|[,\s]+.*$|^.*$/$1&&'.'/ge;