Re: middle line (was Re: Daily Perl FAQ...)

[Yanick]

On Fri, Nov 30, 2001 at 11:24:27AM +1100, [EMAIL PROTECTED] wrote:
> Yanick wrote:
> >>From the ludicrous department:
> > perl -p0 -e'1while s/.*?\n(.*\n).+\n?/$1/s;s/\n.*//'
> If you want to play golf, I claim a 2-stroke lead:
> 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)

If you insist:

  perl -p0 -e'$n=1+y|\n||/2;/(.*\n){$n}/;$_=$+'    (Yv2.0)

Joy,
Yanick

-- 
                    $_ = 'eatYerno Plteh khaer. cr';
                           $S++ ; $oS = ++$S ;
eval 's~'. ( '('. '.'x$S++ .')' ) x $oS . '~$' . $oS-- .'$'. $oS++ .'~g'
                until $S > int sqrt length and print;