なぜこのperlの正規表現は動作しません

Question

@matches = ($filestr =~ /^[0-9]+\. (.+\n)*/mg); 

私はfilestrに読み込まれたファイルを持っていますが、何らかの理由で上記の正規表現は行の先頭に一致し、その後に数字、ドット、空白、その後に改行が続く任意の数の行（改行のみの行がある場合に終了する）は、ファイルからいくつかの単一の行を生成するように見えます。

私は

@matches = ($filestr =~ /^[0-9]+\. .+\n/mg); 

ような何かをするとき、私は正しく、単一の行に一致します。私はこの

@matches = ($filestr =~ /^[0-9]+\. .+\n.+\n/mg); 

は、私はいくつかの一見無関係に見えるラインに続いて、同じ単一の行と一致しない

。私の正規表現で何が間違っていますか？

注：正規表現はこの正規表現テスターで正常に動作します：https://regex101.com/、それはperlでは動作しません。

例、本書に：

1. This should 
match 

2. This should too 

3. This 
one 
also 

正規表現が一致しなければならない

1. This should 
match 

と

2. This should too 

と

3. This 
one 
also 

Answer 1

あなたの正規表現は正しいです。しかし、結果を部分的にキャプチャしています。試合全体を1つの結果セットに取り込むことをお勧めします。それが@matchesに格納される方法です。

したがって、正しい正規表現は/(^[0-9]+\. (?:.+\n)*)/gmになります。このようにして、一致結果を$1にキャプチャします。それをプログラムにラップすると、結果が得られます。

何かをキャプチャしない限り、デフォルトでは$&（つまり完全一致）がかかりますので、かっこを残さずに動作しますが、(...)も動作します。この場合、グループ()の代わりにnon-capturing group(?: ...)を使用する必要があります。

#!/usr/bin/perl 
use strict; 
use warnings; 
use Data::Dumper; 

my $str = ' 
1. This should 
match 

2. This should too 

3. This 
one 
also 
'; 

my @matches = $str =~ /^([0-9]+\. (?:.+\n)*)/gm; 

print Dumper(\@matches); 

出力：

[ 
      '1. This should 
match 
', 
      '2. This should too 
', 
      '3. This 
one 
also 
' 
     ]; 

Answer 2

このような状況では、ファイルを行単位で読むのではなく、段落単位で読む必要があります。これを行うには、$/を空文字列に設定する必要があります。例：

use strict; 
use warnings; 

my @result; 

{ 
    local $/ = ""; 
    while (<DATA>) { 
     chomp; 
     push @result, $_ ; 
     # or to filter paragraphs that don't start with a digit, use instead: 
     # push @result, $_ if /^[0-9]+\./; 
    } 
} 


__DATA__ 
1. This should 
match 

2. This should too 

3. This 
one 
also