Thread perl one liner : Löschen von Zeilen inklusive gefundenen PATTERN
(5 answers)
Opened by bora99 at 2019-01-18 16:19
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 |