Wie kann ich nach einer übereinstimmenden Zeile in Perl mehrere Zeilen erfassen?

Ich analysiere eine große Datei in Perl zeilenweise (abgeschlossen durch \ n), aber wenn ich ein bestimmtes Schlüsselwort erreiche, sagen wir "TARGET", muss ich alle Zeilen zwischen TARGET und der nächsten vollständig leeren Zeile erfassen.

Also, ein Segment einer Datei gegeben:

Linie 1
Zeile 2
Zeile 3
Zeile 4 Ziel
Linie 5 Besorgen Sie sich diese Linie
Linie 6 Besorgen Sie sich diese Linie
\ n

Es sollte werden:
Zeile 4 Ziel
Linie 5 Besorgen Sie sich diese Linie
Linie 6 Besorgen Sie sich diese Linie

Der Grund, warum ich Probleme habe, ist, dass ich die Datei bereits Zeile für Zeile durchlaufe. Wie ändere ich das, was ich in der Mitte des Analyseprozesses abgegrenzt habe?

Antworten auf die Frage(9)

Ihre Antwort auf die Frage