Eugene van der Pijll wrote: 
> 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]'

I feel guilty stealing the lead like this :)
perl -p0 -e'$_=(/(.*\n)/g)[y|\n||/2]'   (Eugene)
perl -p0 -e'$_=(/.*\n/g)[y|\n||/2]'     (Andrew)

Andrew.

Reply via email to