One liner memo

Perl 
perl -lane 'if(++$T % 2){@P=@F}elsif($P[0] ne $F[0]){$,="\t";print @P,@F}'

*1


ちなみに

$ cat F.pm
package F;
use Switch;

sub import {
    switch($_[1]) {
        case m/^(c|com)$/i { $,="," }
        case m/^(s|spc)$/i { $,=" " }
        case m/^(t|tab)$/i { $,="\t" }
        case m/^(n|nl)$/i  { $,="\n" }
    }
}
1;

とかを用意してやると，*2

perl -MF=t -lane 'if(++$T % 2){@P=@F}elsif($P[0] ne $F[0]){print @P,@F}'

気持ちすっきりしますｗ

*1:ちょっと長いけど

*2:邪道だけど，便利だからOKということでｗ．perl -sle ... -- -,="," とかやっても効果がないし