shell

biobaby

大家好， 程序问题下望大家帮忙：现有一个文件file.txt,其文件格式如下：第五列 和第六列分别用；隔开的信息， 而且两列每一个；隔开得信息是对应的。 也就是第五列的第一个数字对应第六列的第一个数字，以此类推。
ENSG00000158014        chr1        -        8        26038022;26039777;26041700;26042549;26043398;26044298;26044997;26045847        26039305;26039911;26041805;26042708;26043551;26044444;26045217;26046133
ENSG00000173673        chr1        +        4        6244192;6244351;6244548;6245110        6244241;6244446;6244629;6245578
ENSG00000173690        chr1        +        1        6244192        6244548

目的是：将第五列和第六列对应的内容连到一起（之后再用；隔开），其他内容不变，输出格式如下：
ENSG00000158014        chr1        -        8        26038022-26039305；26039777-26039911；26041700-26041805；26042549-26042708；26043398-26043551；26044298-26044444；26044997-26045217；26045847-26046133
ENSG00000173673        chr1        +        4        6244192-6244241；6244351-6244446;6244548-6244629;6245110-6245578
ENSG00000173690        chr1        +        1        6244192-6244548

问题有点绕，希望大家帮忙解决，谢谢，

zxy877298415

1. awk '{for(i=1;i<=NF;i++) {if(i<NF-1) {printf $i"\t"} else {t=split($i,a,";");for(j=1;j<=t;j++) b[j]=b[j]?b[j]"-"a[j]:a[j]}} for(i=1;i<=t;i++) if(i==1) printf b[i];else printf ";"b[i];delete b;print "" }' file

复制代码

回复 1# biobaby


   

haooooaaa

1. awk '{OFS="\t";for(i=1;i<=split($5";"$6,m,";")/2;i++){n=m[i]"-"m[i+l/2];s=s?s";"n:n};$5=s;s=$6=""}1' file

复制代码

moperyblue

1. awk '
   
2. {
   
3.     for(i=1;i<=NF;i++){
   
4.         if(i<5){
   
5.             printf $i OFS
   
6.         }
   
7.         else
   
8.         {
   
9.             len1=split($5,a1,";");
   
10.             len2=split($6,a2,";");
    
11. 
    
12.             for(i=1;i<=len1;i++){
    
13.                 if(i==len1){
    
14.                     printf a1[i]"-"a2[i]
    
15.                     break  
    
16.                 }
    
17.                 printf a1[i]"-"a2[i]";"
    
18.             }
    
19.             break
    
20.         }
    
21.     }
    
22.     printf "\n"
    
23. }
    
24. ' file

复制代码

_R__

awk '{l=split($5";"$6,a,";");for(i=1;i<=l/2;i++)b=b?b";"a[i]"-"a[l/2+i]:a[i]"-"a[l/2+i];$5=b;$6=b=""}1' file

wh7211

1. awk '{s=split($5,a,";");split($6,b,";");for(i=1;i<=s;i++){m=m?m";"a[i]"-"b[i]:a[i]"-"b[i]};$5=m;$6="";print;m=""}' file.txt

复制代码