perl - perlで特定の行の後の行を検索する

Question

ログファイルがあり、見つかったらすべての行を保存しようとしていますがThis has happened due to.、新しい行が始まります。

つまり、基本的にログは次のようになります

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

ABC

DEF

GHI

JKL

「これは原因で発生しました」という行を見つけたら、パターンを一致させるのを手伝ってくれませんか。

Answer 1

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