Zeilen zwischen zwei Regexps auslesen - #131291 (Allgemeines zu Perl)

Michi79

2010-01-26 17:36

User since
2010-01-26
2 Artikel
BenutzerIn
[default_avatar]

Hi@all,

Ich suche nach einer Lösung, mit der ich in einer Schleife nicht nur die Zeilen sammeln kann, die auf ein regexp passen, sondern auch diejenigen zwischen zwei Zeilen mit passendem regexp.
z.B.

Code (perl): (dl )

while (<Textfile>) {
        if (/Tropical\sBryology\s\d\d:\d+-\d+,\s\d\d\d\d/) {
                push @grabbed1, $_;}

        if (/^Abstract:/) {
                push @grabbed1, $_;
       }
}

Ich suche diese Dinge in einem Textfile, das ich aus einem pdf extrahiert habe. Es sollen nachher alle Zeilen mit Text die zwischen den ersten regexp und dem zweiten stehen, gelesen und in @grabbed1 abgelegt werden.

Hoffe mir kann jemand helfen!