Muster in Text suchen: Muster in Folge eines anderen Musters - #76855 (Allgemeines zu Perl)

Gast Gast

2007-05-23 12:07

hallo !
hat jemand eine idee?

habe eine datei mit folgendem Inhalt:

blabla blabla
Error bla
dieter bla NAME1
blabla
blob
kurt blub NAME2
bla blib
___________________
blabla blabla
peter bla NAME1
blabla
ursula blub NAME2
bla blib
___________________
blabla blabla
Error bla
heinz bla NAME1
blabla
fred blub NAME2
bla blib

usw...

jetzt möchte ich herausfinden, wo in der Datei ein "Error" vorkommt und die jeweils darauf foldenden Zeilen mit "NAME1" und "NAME2" ausgeben.

hiermit-

Code: (dl )

while($i = <datei>)
{
foreach ($i) {
if ($_ =~ /Error/){print $_;}
}
}

-finde ich zwar die einzelnen Zeilen, ich bekomme aber nicht heraus, wie ich über die gesamte Datei nur nach NAME1 und NAME2 suchen kann, wenn vorher ein "Error" da war.

meine gewünschte Ausgabe sähe so aus:
Error bla
dieter bla NAME1
kurt blub NAME2
Error bla
heinz bla NAME1
fred blub NAME2

Danke schonmal