2006-01-03から1日間の記事一覧
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" …