Question

我有一个制表符分隔的文件，其中第1列是0或16.如果第1列有16，那么我需要将第2和第3列平行移动到第2列和第3列，其中第一列有0.下面是一个示例。

到

0 69 24 55 27
0 69 27 77 23
0 85 25

我想这可以通过awk来完成，我们将不胜感激。感谢

Answer 1

这应该有效：

awk '
BEGIN{FS=OFS="\t"}
$1==0{zero[++i]=$0;next}
{notzero[++y]=$2"\t"$3}
END{for(c=1;c<NR;c++) print zero[c],notzero[c]}' file

测试：

$ cat file
0   69  24
0   69  27
16  55  27
0   85  25
16  77  23
[JS웃:~/Temp]$ awk 'BEGIN{FS=OFS="\t"}$1==0{zero[++i]=$0;next}{notzero[++y]=$2"\t"$3}END{for(c=1;c<NR;c++) print zero[c],notzero[c]}' file
0   69  24  55  27
0   69  27  77  23
0   85  25

Answer 2

GNU代码sed：

sed -nr '/0\s/{H;${x;s/\`\n(.*)/\1/mp};d};/16\s/s/16\s(.*)/\1/;H;g;s/\`\n(.*)\n.*\n(.*)\'/\1 \2/p;g;s/\`\n(.*)(\n.*)\n(.*)\'/\2/;h;${s/\`\n(.*)/\1/mp};d' file

$cat file
0 69 24
0 69 27
16 55 27
0 85 25
16 77 23

$sed -nr '/0\s/{H;${x;s/\`\n(.*)/\1/mp};d};/16\s/s/16\s(.*)/\1/;H;g;s/\`\n(.*)\n.*\n(.*)\'/\1 \2/p;g;s/\`\n(.*)(\n.*)\n(.*)\'/\2/;h;${s/\`\n(.*)/\1/mp};d' file
0 69 24 55 27
0 69 27 77 23
0 85 25

Answer 3

使用Perl：

perl -lane '{!$F[0]&&push(@h,$_)||print(shift @h," $F[1] $F[2]")}
    END{print for @h}' input

按文本文件中的特定模式对行和列重新排序

3 个答案:

测试：