Регулярное выражение для удаления пробела в середине строки перед символом

Question

Я пытаюсь зафиксировать "Некоторая компания" из строки ниже

@@VALUE= Some Company Name            @@

Но без пробелов перед окончательной @@.

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

@@VALUE=Some Company Name@@

Я могу сопоставить пробел перед названием компании, но мой матчдля названия компании всегда:

"Some Company Name            "

В настоящее время используется это регулярное выражение:

(\@\@VALUE=)(\s)([^@]*)

Удаление конечного пробела было бы легко, если бы не @@ в конце.

Answer 1

Если вы пытаетесь удалить все пробелы до финального @@, это просто

s/\s+\@\@$/\@\@/;

Я не уверен, почему вам нужно сопоставить что-либо еще.

Answer 2

или используйте ленивый режим Perl Regex

$s = '@@VALUE= Some Company Name       @@'
$s =~ s/@@VALUE=\s*(.+?)\s*@@\s*$/$1/
print $s

Answer 3

Попробуйте Regex: \s+(?=@@$)

Regex Demo

Perl Demo