对文件按列进行重排

junlingpang

有一文件，列与列间tab分隔，现想将文件的列顺序改变一下
比如原来的各列编号为1,2,3,4,5 现在想变成1,3,5,2,4
linux下有没有什么简单的命令啊？
我开始想用cut -f 1,3,5,2,4 ,结果顺序没变~
应该是件很简单的事情，望各位指教哇

iamlimeng

@col =  split(/\t/,$line);
print "$col[0]\t$col[2]\t$col[4]\t$col[1]\t$col[3]\n";

wxlfh

1. use strict;
   
2. open my $fh, "<","your_file";
   
3. open my $out,">","out_file";
   
4. while (<$fh>) {
   
5.     chomp;
   
6.     print $out join("\t",(split /\t/)[0,2,4,1,3]),"\n";
   
7. }
   
8. close $fh;
   
9. close $out;

复制代码

junlingpang

回复 2# iamlimeng


    Thank you~

junlingpang

回复 3# wxlfh


    学习了，谢谢

zhlong8

把三楼代码改成一行的
perl -lne "BEGIN{$,=qq{\t}} print (split /\t/)[0,2,4,1,3]" file

sudegj

学习中

junlingpang

回复 6# zhlong8


    够简洁！多谢多谢~
   对了，大侠给我推荐下类似的学习资料吧，谢了

zhlong8

单行程序就看下 Perlrun 了解下 alnpe 这几个参数，然后看几个别人的代码就行了

junlingpang

回复 9# zhlong8


    好的，谢了