Jeff 'japhy' Pinyan schreef op 29 november 2001:
> >> > 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)
These last two don't work for me if there is an odd number of lines
(when $n is fractional).
This one does:
perl -p0 -e'$_=(/(.*\n)/g)[y|\n||/2]'
Eugene
