Re: *** GMX Spamverdacht *** Re: unhead

On Mon, 2004-09-27 at 08:44, Gaal Yahas wrote:
> On Fri, Sep 24, 2004 at 04:49:49PM -0000, Jose Alves de Castro wrote:
> > Imagine you want to print a file, but without the first N lines...
> 
> All the other solutions are so horrendeously inefficient, performing a
> branch every line. Tsk, tsk.
> 
> perl -ne 'BEGIN { $p = sub { $p = sub { print } if $. == 4 } } $p->()'

Probably it will take longer to parse yours than the others to run. ;-)

perl -ne 'print if $. - 4 > 0'

Tobias Gödderz

-- 
j();sub j{$_=&p;sub p3{'81461380'}while(s/^(\d{3})(\d*)$/$2/){$s='0.'.$1;push@a,
atan2($s,sqrt(1-$s*$s))}sub p{&p1.&p2.&p3}sub p1{'30531437032492049655'}for(@a){
push@b,chr sprintf"%.0f",(100*$_);}$s=join'',@b;print$s^uc("u"x24);}sub p2{'%f';
hex'13012428';'65483245724613809200494613805399205724965145'}#by Tobias Goedderz

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)

iD8DBQBBV+BxMG6F8uvLTSkRAtSaAKCkHn+Gj0GGik7UvU+RCcvOVEHJ4gCfUwF9
KzMOl3yaKhECk+/P29lAvJ0=
=QARZ
-----END PGP SIGNATURE-----