linux-l: sed

[Jens Dreger]

> Ich bin zwar kein sed experte, aber ob das ueberhaupt ohne riesen 
> verschraenkungen geht?
> 
> cat datei | perl -en 'BEGIN { $a=1; } if ($a==15) { print ; $a=0; } else { $a++; }'

Sorry, da kann ich nicht widerstehen ;-)

	perl -ne 'print unless($i++%15)' datei

=> 1,16,31,...

oder
	perl -ne 'print unless(++$i%15)' datei


=> 0,15,30,...

Gruss,

Jens.

PS: Unterbietet jemand   perl -ne '!(++$i%5)&&print' datei   ;-)

________________________________________________________________________
Jens Dreger                     | Freie Universitaet Berlin
Cauerstrasse 35a                | Fachbereich Physik, WWW Administration
10587 Berlin                    | Arnimallee 14
Tel: (030)342-3616              | 14195 Berlin