文件按列切割，一次性完成？？

gdutllf2006

文件按列切割，一次性完成？？
name|1|2|3||4|5|6|......|214|215|216|
file1:
name|1|2|3|............|214|
file2:
name|215|216|
现在的做法是
cut -d "|" -f 1-214  source.unf > t1.unl
cut -d "|" -f -f 1,215,216  source.unf > t2.unl
这样要读两次source.unl文件，由于文件比较大，有没有更好的方法能一次性完成？？？？

r2007

用awk 内置print >>file应该能实现，自行man吧。

sk1418

这个是按你的例子，把最后2列弄出来存成t2.txt

1. kent$ cat t.txt
   
2. name|1|2|3|4|5|6|214|215|216|
   
3. 
   
4. kent$ awk -F'|' '{t1=$1; t2=$1;for(i=2;i<=NF;i++){ if(i<NF-2)t1= t1 FS $i; else t2=t2 FS $i; } print t1 >>"t1.txt"; print t2 >>"t2.txt"; }' t.txt
   
5. 
   
6. kent$ cat t1.txt t2.txt
   
7. name|1|2|3|4|5|6|214
   
8. name|215|216|

复制代码

gdutllf2006

awk -F "|" 'BEGIN{
        OFS="|"
}{       
        for(i=1;i<NF-2;i++){
                printf $i"|" >"t1.unl"
        }
        printf "\n"  >"t1.unl"
       
        print $1"|"$215"|"$216"|" >"t2.unl"
       
}'  t.unl

改成这种方式，速度比cut慢得多

r2007

1. awk -F "|" 'BEGIN{
   
2.         OFS="|"
   
3. }{      
   
4.         print $1"|"$215"|"$216"|" >"t2.unl"
   
5. 
   
6.        NF=214
   
7. print
   
8. }'  t.unl >t1.unl

复制代码

没有环境，未测试

yinyuemi

awk -F"|" '{print $1,$(NF-2),$(NF-1) >"file2"; NF-=3; print >"file1"}' OFS="|" source.file