Perl регулярное выражение матч по multple линий

Question

Если у меня есть следующие данные:

<br/> 
    help can be found... 

Так что я получил это с отношени фактических данных:

<br/>\n\s\s\s\shelp can be found 

Я не могу понять, почему , но Perl не находит эти соответствия. Я использую следующий код:

my $filename = $ARGV[0]; 

open(INFILE, "<", $filename); 

while (<INFILE>){ 
    if (/(\<br\/\>.*\s{4}[A-Z])/msi){ 
     print $1."\n"; 
} 
} 

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

Answer 1

<INFILE> в цикле while загружает каждую строку в $_ отдельно. Поэтому для соответствия между строками вам нужно установить $/ в undef. Затем вам необходимо переместить цикл while в регулярное выражение и использовать глобальный флаг для установки нескольких совпадений.

my $filename = $ARGV[0]; 

$/ =undef; 

open(INFILE, "<", $filename); 

my $file = <INFILE>; 

while ($file =~ /(\<br\/\>.*\s{4}[A-Z])/msig){ 
    print $1, "\n"; 
}