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

Question

У меня есть текст, следующий за шаблоном ниже:

Некоторый текст со многими пробелами [текст внутри квадратных скобок].

Мне нужно регулярное выражение, которое соответствует слову после последнего пробела и перед открывающей квадратной скобкой. В этом примере это будут «пробелы».

Попробовав это регулярное выражение . * \ S (. *) \ [ на этом онлайн-тестере , я попробовал использовать встроенный Perl

$ cat file-containing-pattern.txt | perl -ne "print $1 if s/.*\s(.*)(\[)/\1/"

но он печатает:

Сплошной текст в квадратных скобках].

Есть идеи, как это решить?

Answer 1

Вы получаете совпадение и заменить в замешательстве. Матч правильный, и вы отвечаете с первой группой захвата. тем не менее, вы не заменяете текст после и включая группу 2 "([)".

вы хотите сопоставить и напечатать

cat file-containing-pattern.txt | perl -ne 'm/.*\s(.*)\[/ and print $1;'

или вы можете заменить все, кроме совпадения

 cat file-containing-pattern.txt | perl -pe 's/.*\s(.*)\[.*/$1/;'

Answer 2

Четыре номера:

• Вы неверно цитируете команду, вызывая интерполяцию оболочки $1.
• Вы используете \1 вне регулярного выражения, что не имеет смысла.
• Вы используете подстановку, когда нет смысла это делать.
• Вы полагаетесь на внутренние компоненты Perl, чтобы найти правильное соответствие, а не на точный шаблон.

Fix:

perl -nle'print $1 if / \s ( [^\s\[]+ ) \[ /x' file