best.Zeile + darauffolgende Zeilen löschen - #54497 (Allgemeines zu Perl)

Strat

2005-05-03 18:58

User since
2003-08-04
5246 Artikel
ModeratorIn

[quote=Dubu,03.05.2005, 10:51]

Code: (dl )

perl -ne '$cnt=4 if /NOID/; print unless $cnt && $cnt--;' datei_alt.txt > datei_neu.txt

[/quote]
@Dubu: wie gefaellt dir:

Code: (dl )

perl -i.bak -ne '/\bNOID\b/&&$c=4;($c-->0)||print' datei.txt

(hab's allerdings nicht getestet)

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/