linux-l: sed
Jens Dreger
dreger at physik.fu-berlin.de
Mo Nov 1 22:48:28 CET 1999
> 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
Mehr Informationen über die Mailingliste linux-l