正则表达式 – Perl,sed或awk one-liner来改变文件的格式

发布时间：2020-12-14 06:06:03 所属栏目：百科来源：网络整理

导读：我需要有关如何以下列方式更改文件的建议文件1： A 504688B jobnameAA 504690B jobnameBA 504691B jobnameC... 到file2： A B504688 jobnameA504690 jobnameB504691 jobnameC... 我能想到的一个解决方案是： cat file1 | perl -0777 -p -e 's/s+B/t/' | a

我需要有关如何以下列方式更改文件的建议
文件1：

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

到file2：

A       B
504688  jobnameA
504690  jobnameB
504691  jobnameC
...

我能想到的一个解决方案是：

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

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

解决方法

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

在perlrun中查找选项.

另一个有用的添加是-l(追加换行的换行符),但在这种情况下不是.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!