Re^2: join program in one-liner

[bmann]

in reply to Re: join program in one-liner
in thread join program in one-liner

Same as yours, but cut out unnecessary space and get rid of the END block:

#        1         2         3         4
#23456789012345678901234567890123456789012345
perl -lne'$a[$.].=$_;$.=0if eof}{print for@a'

BTW, perldoc perlvar says:

   $. is reset when the filehandle is closed, but not when an open
   filehandle is reopened without an intervening close().  For
   more details, see "I/O Operators" in perlop.  Because "<>"
   never does an explicit close, line numbers increase across ARGV

[truedfx]

And $.=0if eof can be changed:

#        1         2         3         4
#234567890123456789012345678901234567890123
perl -lne'$a[$.].=$_;$.*=!eof}{print for@a'