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.