regex - Perl、sed 或 awk 单行更改文件格式

Question

我需要有关如何更改以下格式的文件的建议
文件 1:

A       504688
B       jobnameA
A       504690
B       jobnameB
A       504691
B       jobnameC
...

进入文件2:

A       B
504688  jobnameA
504690  jobnameB
504691  jobnameC
...

我能想到的一种解决方案是:

cat file1 | perl -0777 -p -e 's/\s+B/\t/' | awk '{print $2"\t"$3}'.

但我想知道是否有更有效的方法或已知的做法来完成这项工作。

Answer 1

 perl -nawe 'print "@F[1 .. $#F]", $F[0] eq "A" ? "\t" : "\n"' < /tmp/ab

在 perlrun 中查找选项.

另一个有用的添加是 -l (附加换行符打印)，但不是在这种情况下。