Как мне сопоставить что-то подобное с помощью Perl Regex?

Question

Файл выглядит как

[N the computer end] [M whatever] [N you look] [N why not]

Мне нужны только слова в скобках, которые начинаются с [N, поэтому здесь я хочу, чтобы компьютер заканчивался, вы смотрите, почему они не могут или не могут вта же строка

Я пробовал что-то вроде этого:

if($line =~/\[N(.+?)\]/)

, но оно совпадает только с первой строкой в ​​каждой строке.

Answer 1

Используйте модификатор g в регулярном выражении, чтобы найти "g" lobal совпадения. Либо так:

while ($line =~ /\[N(.+?)\]/g) {
    # $1 contains the text between "[N" and "]"
}

Или вот так:

my @matches = $line =~ /\[N(.+?)\]/g;
# @matches contains all of the matching items of text

Answer 2

Вам нужно будет изменить его на цикл while, чтобы выполнять итерацию по каждому совпадению группы. Документация Perl иллюстрирует это.