Re^2: join program in one-liner

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'
[download]

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
[download]

Comment on Re^2: join program in one-liner Select or Download Code

Replies are listed 'Best First'.
Re^3: join program in one-liner by truedfx (Monk) on Aug 28, 2005 at 11:40 UTC
And $.=0if eof can be changed: `# 1 2 3 4 #234567890123456789012345678901234567890123 perl -lne'$a[$.].=$_;$.*=!eof}{print for@a'` [download]	[reply] [d/l]

In Section Obfuscated Code