我有一个超过200列的文件。出于示例目的,我在这里使用的列数较少的文件(9)。下面是输入文件(几行)
chr10 181243 225933 1 1 1 10 0 36
chr10 181500 225933 1 1 1 106 0 35
chr10 226069 255828 1 1 1 57 0 37
chr10 243946 255828 1 1 1 4 0 27
chr10 255989 267134 1 1 1 87 0 32
chr10 255989 282777 1 1 1 61 0 34
chr10 267297 282777 1 1 1 61 0 37
chr10 282856 283524 1 1 1 92 0 35
chr10 282856 285377 1 1 1 1 0 15
chr10 283618 285377 1 1 1 72 0 33
我想重新排列文件,使我的最后一列(这里是第9列)在输出文件中是第4列,然后打印其他所有内容。所以我正在寻找的输出是
chr10 181243 225933 36 1 1 1 10 0
chr10 181500 225933 35 1 1 1 106 0
chr10 226069 255828 37 1 1 1 57 0
chr10 243946 255828 27 1 1 1 4 0
chr10 255989 267134 32 1 1 1 87 0
chr10 255989 282777 34 1 1 1 61 0
chr10 267297 282777 37 1 1 1 61 0
chr10 282856 283524 35 1 1 1 92 0
chr10 282856 285377 15 1 1 1 1 0
chr10 283618 285377 33 1 1 1 72 0
在列数较少的文件上,我可以使用类似以下的方法来实现以上输出:
awk -v OFS="\t" '{print $1,$2,$3,$9,$4,$5,$6,$7,$8}'
如果现在我有一个包含大量列的文件,如何将文件的最后一列放置为第四列,而其余部分照原样打印呢?
Perl对此非常简洁:将每一行分割成多个单词,弹出最后一个单词并将其插入索引3(从0开始)
$ perl -lane 'splice @F, 3, 0, pop(@F); print "@F"' file | column -t
chr10 181243 225933 36 1 1 1 10 0
chr10 181500 225933 35 1 1 1 106 0
...
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句