Regex заменить все вхождений данного символа, только после данного матча

Question

Для простоты допустим, что у нас есть входные строки с этим форматом:

*text1*|*text2* 

Итак, я хочу, чтобы оставить text1 и удалите все пробелы в text2.

Это может быть легко, если у нас не было TEXT1, простой поиск и замену, как это можно было бы сделать:

%s/\s//g 

, но в этом контексте я не знаю, что делать.

Я пытался что-то вроде:

%s/\(.*|\S*\).\(.*\)/\1\2/g 

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

Таким образом, предпочтительным ограничением является решить это только с одним поиском и заменить. И, хотя я использовал синтаксис Vim, используйте обычный вкус выражения, с которым вам наиболее удобно отвечать, я имею в виду, может быть, вам нужна некоторая функциональность, предлагаемая только Perl.

Edit: Мое решение для Vim:

%s:\(|.*\)\@<=\s::g 

Answer 1

Один из способов, в Perl:

s/(^.*\||(?=\s))\s*/$1/g 

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

Answer 2

Итак, у вас есть строка с одной трубкой (|), и вы хотите заменить только те пространства, которые не предшествуют трубе?

s/\s+(?![^|]*\|)//g 

Answer 3

Вы можете попробовать встраивание кода Perl в регулярном выражении (с использованием синтаксиса (?{...})), который, однако, скорее экспериментальная функция, и может не работать или даже быть доступны в вашем сценарии.

Это

s/(.*?\|)(.*)(?{ $x = $2; $x =~ s:\s::g })/$1$x/ 

теоретически должна работать, но я получил "из памяти!" отказ, который можно зафиксировать путем замены «\ s» на пробел:

s/(.*?\|)(.*)(?{ $x = $2; $x =~ s: ::g })/$1$x/