在perl中搜索特定行後的行

Question

我有一個日誌文件，在那裏我試圖存儲所有行，一旦找到This has happened due to.，然後新行開始。

所以基本上日誌看起來像這樣

Bla bla bla bla....This has happened due to. 

ABC 

DEF 

GHI 

JKL 

可以請你幫我到paatern匹配，一旦我找到了行「這已經發生了，由於」。

Answer 1

while (<>) { 
    next unless /This has happened due to/; 
    while (<>) { 
    # Process lines 
    } 
    last; 
} 

Answer 2

#!/usr/bin/env perl 

while (<>) { 
    last if /This has happened due to/; 
} 

while (<>) { 
    print; # do smth with the line 
} 

保存腳本文件並使其可執行。然後運行如./script.pl logfile