How can I extract complete domains from LDAP fields?

Question

What I need to do is change a string such as "CN=bobvilla, OU=People, DC=example, DC=com" (can have many DC='s in the string) to "example.com"

I have this method but It seems sloppy to me and wanted to see if anyone had a better idea.

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";

thanks~

Answer 1

This should do the job:

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

Answer 2

here's one way

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 3

It's relatively simple:

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

This was straight from question.

Now we need to get all DCs:

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

Combine it into result and print:

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

Whole "program":

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 4

In a single regex:

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