按列分割文件

letwave

如何自动把一个文本文件按列分割，每列自动写入到一个新文件呢。

比如：

a b c
1 2 3
0 0 0

把第一列
a
1
0
写入一个新文件file1，而且是以列的形式写入file1. 就是说file1中只有1列。
以此类推。把另外两列写入file2, file3.....

谢谢！！

sunzhiguolu

1. perl -ane '{push(@{$a[$_]}, $F[$_]) for 0 .. $#F}END{for(0 .. $#a){open(W,">","file".($_+1));print W "@{$a[$_]}";close(W)}}' f

复制代码

head file*
-------------------------------------
==> file1 <==
a 1 0
==> file2 <==
b 2 0
==> file3 <==
c 3 0

zxy877298415

回复 1# letwave


awk '{for(i=1;i<=NF;i++) a[NR" "i]=$i}END{for(i=1;i<=NF;i++) {for(j=1;j<=NR;j++) print a[j" "i] >>"file"i}}' file

moperyblue

1. awk '{for(i=1;i<=NF;i++)print $i > "file"i}' file

复制代码