如何根據模式將輸出文件分割爲多個塊

Question

我有一個包含以下內容的輸出文件。我想根據「模式」將它分成塊並存儲在一個數組中。

Sample output: 
100 pattern 
line 1 
line 2 
line 3 
101 pattern 
line 4 
102 pattern 
line 5 
line 6 
... 

內容第和（Ñ 1）個 「模式」 的發生之間的N個^是嵌段：

Block 1: 
100 pattern 
line 1 
line 2 
line 3 

Block 2: 
101 pattern 
line 4 


Block 3: 
102 pattern 
line 5 
line 6 

基本上我跨越搜索的圖案並將其中的內容存儲到數組中。

請讓我知道我怎麼在Perl

Answer 1

實現假設你模式是全行方含字pattern（和正常行不），你想數組元素是整個塊：

my @array; 
my $i = 0; 

for my $line (<DATA>) { 
    $i++ if ($line =~ /pattern/); 
    $array[$i] .= $line; 
} 

shift @array unless defined $array[0]; # if the first line matched the pattern 

Answer 2

我知道你已經接受了答案，但我想告訴你如何通過讀取數據並使用正則表達式來分解它。

#!/usr/bin/perl 

use strict; 
use warnings; 

use 5.010; 

my $input = do { local $/; <DATA> }; 

my @input = split /(?=\d+ pattern)/, $input; 

foreach (0 .. $#input) { 
    say "Record $_ is: $input[$_]"; 
} 

__DATA__ 
100 pattern 
line 1 
line 2 
line 3 
101 pattern 
line 4 
102 pattern 
line 5 
line 6