Thread Suchmuster finden, Zeile und Folgezeile mit ausgeben (12 answers)
Opened by korkak at 2013-07-10 13:43

korkak
 2013-07-12 09:24
#168833 #168833
User since
2013-07-06
16 Artikel
BenutzerIn
[default_avatar]
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)

View full thread Suchmuster finden, Zeile und Folgezeile mit ausgeben