Поиск строк после определенной строки в 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