in reply to join program in one-liner

In a one-liner, you can auto-chomp and auto-newline with "-l". You'll save 9 characters.

perl -ne 
 'push@{($|?"_0":"_1")},$_;eof&&$|++;END{$,=$?||map{print$_1[$-++],$_}
+@_0}'
file1 file2

[download]

Replies are listed 'Best First'.
Re^2: join program in one-liner
by Anonymous Monk on Aug 19, 2005 at 17:14 UTC

    I forgot the -l ... 

    perl -lne 
 'push@{($|?"_0":"_1")},$_;eof&&$|++;END{$,=$?||map{print$_1[$-++],$_}
+ @_0}'
file1 file2

    [download]
[reply]
[d/l]

In Section Obfuscated Code