Thread perl one liner : Löschen von Zeilen inklusive gefundenen PATTERN (5 answers)
Opened by bora99 at 2019-01-18 16:19

bora99
 2019-01-18 16:19
#189474 #189474
User since
2009-12-05
54 Artikel
BenutzerIn
[default_avatar]
Hallo,

Ich möchte vom Anfang einer Datei alle Zeilen bis inklusive der Zeile des 1. gefundenen PATTERN alles löschen.

Beispiel einer Datei
1
2
PATTERN
3
4

Nach Löschen
3
4

Hier mein Vorschlag
Code: (dl )
perl -i -ne 'BEGIN { $i = 0; $found = 0; }; if ( !/PATTERN/ && ($i==0) ) { next; } elsif ( /PATTERN/ && ($found==0) ) { $i++; $found++; next  } else { print $_ } ' datei


Bg

View full thread perl one liner : Löschen von Zeilen inklusive gefundenen PATTERN