Непревзойденный [ в регулярном выражении, несмотря на экранирование

Отрицательный класс символов не завершается.

Где у вас есть

[^\]+    # One or more characters that aren't «]», «+», ...

у вас должно быть

[^\]]+   # One or more characters that aren't «]»

я бы даже использовал

[^[\]]*  # Zero or more characters that aren't «[» or «]»

Ошибка связана с неполным классом символов...

\G.*\[([^\] +)\]
           ^

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

\G.*\[([^\]]+)\]
           ^

Я предлагаю следующее, изменив + на *, чтобы вместо этого соответствовать «ноль или больше».

[^]]*

Вы избежали только 3 из 4.

m{\G.*\[([^\]+)\]}cg)
       ^    ^   ^
         ^ - not escaped

Объяснение регулярного выражения вопроса:

m{\G.*\[([^\]+)\]}cg

Это регулярное выражение является экранированным регулярным выражением perl. Неэкранированное регулярное выражение: \G.*\[([^\]+)\]

Регулярное выражение: \G.*\[([^\]+)\] делает:

• \G ... Утверждает, что позиция находится в конце предыдущего совпадения или в начале строки.
• .* ... Соответствует любому символу, который не является символом разрыва строки, от нуля до неограниченного количества раз. (жадный)
• \[ ... Соответствует символу [

Теперь регулярное выражение не может быть обработано, есть открывающая скобка без закрывающей скобки.
Это связано с тем, что после открывающей скобки ( начинается класс символов [, который необходимо закрыть перед закрывающей скобкой ) .
Несмотря на это есть \] это экранированный ] и, следовательно, не закрывающая скобка класса символов.
Таким образом, ) в регулярном выражении является частью открытого класса символов.
Поскольку последний ] также не экранирован, ни Capturing ни группа, ни класс персонажей не закрыты.

В регулярных выражениях Perl ] не нужно экранировать.
Конец класса символов не должен экранироваться.

Если \[([^\]+)\] предназначен для соответствия всем символам между [ и ] и захвата его значения в группу захвата 1, исправленная часть: \[([^\]]+)\] или даже короче \[([^]]+)]

Итак, ближайшее рабочее регулярное выражение:

\G.*\[([^\]]+)\]

и можно сократить до

\G.*\[([^]]+)]

Если вы хотите сопоставить two three и four:

m/\[([^]]+)]/

Вы можете обнаружить, что добавление пробелов в регулярное выражение, чтобы сделать его более читабельным, может помочь вам увидеть, что происходит. Кроме того, у вас слишком много "my $string" там :-)

my $string = "one, [two] , [three], and [four].";

while ($string =~ m{
        \G.*
        \[
            (  [^\]]+  )
        \]
    }cgx)
{
    my $value = $1;
    print "Found value $value .\n";
};