Perl Regex заменить только часть строки

Question

мне нужно написать регулярное выражение на языке Perl, чтобы преобразовать

site.company.com => dc=site,dc=company,dc=com 

К сожалению, я не в состоянии удалить завершающую «» с помощью регулярных выражений, я пришел с ниже. Я мог бы, конечно, удалить конечный «,» в следующем выражении, но предпочел бы, чтобы это было обработано как часть регулярного выражения.

$data="site.company.com"; 
$data =~ s/([^.]+)\.?/dc=$1,/g; 
print $data; 

Это выше код печатает:

dc=site,dc=company,dc=com, 

Спасибо заранее.

Answer 1

$data =~s/\./,dc=/g&&s/^/dc=/g; 

испытания ниже:

> echo "site.company.com" | perl -pe 's/\./,dc=/g&&s/^/dc=/g' 
dc=site,dc=company,dc=com 

Answer 2

При обращении URLs может быть хорошей идеей использовать модуль такой, как URI. Однако я не думаю, что это применимо в этом случае.

Эта задача наиболее легко решается с помощью раскола и присоединиться, я думаю:

my $url = "site.company.com"; 
my $string = join ",",   # join the parts with comma 
      map "dc=$_",   # add the dc= to each part 
      split /\./, $url; # split into parts 

Answer 3

Попробуйте сделать это:

my $x = "site.company.com"; 
my @a = split /\./, $x; 
map { s/^/dc=/; } @a; 
print join",", @a; 

Answer 4

просто положить, как это,

$data="site.company.com"; 
$data =~ s/,dc=$1/dc=$1/g; #(or) $data =~ s/,dc/dc/g; 
print $data; 

Answer 5

I 'собирается попробовать маршрут /ge:

$data =~ s{^|(\.)}{ 
    ($1 && ',') . 'dc=' 
}ge; 

e = оценить замену как код Perl.

Итак, это означает, что с учетом начала строки или точки выполните следующую замену. Если он захватил период, затем испустите ','. Независимо от этого результата, вставьте 'dc='.

Обратите внимание, что я хотел бы использовать стиль рамки для разделителя во всех моих оцененных заменах.