Loeschen von Zeilen aus einer Datei

[Alexander Reelsen]

On Wed, Nov 21, 2001 at 01:47:53PM +0100, Jan-Benedict Glaw wrote:
> Der "ext"-Block ist über und hät CVS davon ab, die ansonsten
> sauberen RCS-Dateien zu schlucken. Kann ich (z.B. via sed)
> nach '^ext$' suchen und dann solange Zeilen löschen, bis
> eine Leerzeile gelöscht wurde? *amkopfkratz* Es sind zudem
> nicht immer 4 Zeilen, die gelöscht werden müssen. Manchal
> ist noch eine weitere Zeile mit dabei, also muß wirklich bis
> zur nächsten leeren Zeile gelöscht werden...
alex:/tmp# cat test | perl -ne 'if (/^ext$/) { $i = 1 } ; if ($i != 1) {
print } elsif (m/^\n$/) { undef $i ; next }'
-----------------------------------------------
branches ;
next ;

desc
@@


1.2
------------------------------------------------
alex:/tmp# 

So? (Ich weiss, das perl ist nicht kuenstlerisch wertvoll und man koennte
es abkuerzen).


MfG/Regards, Alexander

-- 
Alexander Reelsen   http://joker.rhwd.de
ref at tretmine.org    GnuPG: pub 1024D/F0D7313C  sub 2048g/6AA2EDDB
                    7D44 F4E3 1993 FDDF 552E  7C88 EE9C CBD1 F0D7 313C