Suchmuster finden, Zeile und Folgezeile mit ausgeben (gelöst) - #168828 (Allgemeines zu Perl)

korkak

2013-07-11 19:24

User since
2013-07-06
16 Artikel
BenutzerIn
[default_avatar]

Vielen Dank für eure Vorschläge.

Mit den folgenden beiden konnte ich mich anfreunden und habe sie erfolgreich unter Windows getestet, jetzt versuche ich als Perl Anfänger natürlich zu verstehen was hier genau passiert und das fällt mir gar nicht so leicht :-(
Ich versuchs mal:

Code: (dl )

perl -ne "/Testwort/ ? $c=3 : $c--; print if $c>0;" test.txt

- Es wird nach Testwort gesucht.
- Durch das ? wird festgelegt, dass das Suchwort 0-1 mal auftreten darf.
- Variable C wird auf 3 gesetzt.
- Der Doppelpunkt erschließt sich mir nicht :-(
- Rückgabe von Variable C und 1 subtrahiert.
- Zeile ausgeben solange Variable C größer 0.

Code: (dl )

perl -nwe "/Testwort/ and $x = $.; print if $x && ($.-$x) <= 2" test.txt

- Es wird nach Testwort gesucht und Variable X wird auf die aktuelle Zeilennummer gesetzt.
- Zeile ausgeben wenn Variable X gesetzt ist und die aktuelle Zeile minus Variable X kleiner gleich 2 ist?

Vielleicht kann mir ja jemand Licht ins Dunkel bringen :-)

Viele Grüße
Korkak
Last edited: 2013-07-11 19:28:34 +0200 (CEST)