Thread Suchmuster finden, Zeile und Folgezeile mit ausgeben
(12 answers)
Opened by korkak at 2013-07-10 13:43
Hallo Raubtier,
ich habe Dein Statement jetzt mit Erfolg unter Windows getestet: Code: (dl
)
perl -nE "print if /morgenstund/ ? $c=2 : --$c > 0; print \"--\n\" unless $c;" text.txt Aber 100% verstehe ich den Ablauf immer noch nicht, nochmal zum Verständnis: Wenn SUCHWORT gefunden wird: - setze C=2. - gebe die Zeile aus. Wenn SUCHWORT nicht gefunden wird: - setze C-1(C ist jetzt 1), C ist > 0 also gebe die Zeile aus. Wenn SUCHWORT nicht gefunden wird: - setze C-1 (C ist jetzt 0), C ist nicht mehr > 0 also kommt nun der 2te Teil zum tragen: - gib -- aus falls $C nicht gesetzt ist. Habe ich das so richtig verstanden? Grüße Korkak Last edited: 2013-07-12 09:58:56 +0200 (CEST) |