Jeff 'japhy' Pinyan writes:
>On Nov 29, Yanick said:
>
>>> > perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//'
>>> perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//' (Yanick)
>>> perl -p0 -e'$n=y|\n||>>1;s/(.*\n){$n}//;s/\n.*//s' (Andrew)
>>> perl -p0 -e'$n=1+y|\n||/2;/(.*\n){$n}/;$_=$+' (Yv2.0)
>
> perl -p0 -e'$n=1+y|\n||/2;($_)=/(.*\n){$n}/' (japhy)
Those last two don't work with odd numbers of lines.
sorry about the non-list reply...
--
Sam
testing? What's that? If it compiles, it is good, if it boots up it is
perfect.
--Linus Torvalds
