RegExp - условную замену умеет?

[Verr]

Поисковая строка типа (текст)(Опциональный_текст)?
Задача - если опциональный_текст найден, то вставить в результат между /1 и /2 некие дополнительные символы
Т.е. если на входе текст = то на выходе текст
А если на входе текст Опциональный_текст то на выходе текст_добавка_Опциональный_текст

[Sly_tom_cat]

так вроде бы можно проще сформулировать.

Если найдена строка текст_опциональный_текст то _опциональный_текст заменить на _добавка_опциональный_текст

[Azure]

Или наоброт: Если найдена строка текст_опциональный_текст заменить текст_ на текст_добавка_

[ReNzRv]

Код: (perl) [Выделить]

/(текст)(Опциональный_текст)?/;
if (defined $1) {
print "$1";
print " добавка $2" if (defined $2);
print "\n";
}


[Verr]

Да, можно было сформулировать и так, я слишком близко к реальной задаче взял.
renzrv, вопрос был именно про RegExp-поиск, скриптом-то постобработать оно как нефиг делать. К сожалению, инфа по нему больше касается того какую строку написать для поиска, а что можно сделать с найденным кроме как тупо вставить - непонятно.

[ReNzRv]

Verr,
В регулярках есть и замена, и условия типа if-else (Бен Форта: Регулярные выражения.), но совместить замену с условием я так понял - нельзя. Но еще можно применить такое решение:

Код: (perl) [Выделить]

sub find_text { $_[0] =~ /($_[1])($_[2])?/; ($1 && $2) ? "$1 $_[3] $2" : $1 };

my $result = &find_text("cтрока", "текст", "Опциональный_текст", "добавка");
print "$result\n";


[rtupe]

Perl умеет заглядывать вперед и назад - look-ahead, look-behind регулярные выражения:

Код: [Выделить]

perl -le '
$_="1x12"; $text="1"; $opt="2"; $sub="X";
s/(?<=$text)(?=$opt)/$sub/;
print
'
1x1X2
Подробнее можно прочитать, допустим, здесь:
https://rsdn.org/article/alg/regular.xml#ENGAC

[ReNzRv]

rtupe,

если на входе текст = то на выходе текст