shell

biobaby

大家好，我有这样一个文件 如下：
1     49M1D52M
3     74M3I2D27M
6     13S14M2D74M
4     32M2D69M
7     8M1I17M2D75M
4     21M1D80M
5     17M1D72M12S

现在我想这样第一列照常输出，对于第二列，一般由nM,nI,nD,nS...组成， 现在我想将第二列nD前后除nD之外的其他数字加和。输出在第三列如下：
1     49M1D52M      49A1D52A
3     74M3I2D27M    77A2D27A
6     13S14M2D74M  27A2D74A
4     32M2D69M      32A2D69A
7     8M1I17M2D75M   26A2D75A
4     21M1D80M    21A1D80A
5     17M1D72M12S    17A1D89A

希望各路大神帮忙，不知道有没有描述清楚。 谢谢

   

jason680

回复 1# biobaby

$ cat FILE
1     49M1D52M
3     74M3I2D27M
6     13S14M2D74M
4     32M2D69M
7     8M1I17M2D75M
4     21M1D80M
5     17M1D72M12S

$ awk 'function gn(s, t,n,r){t=split(s,x,"[A-Z]");for(n=1;n<=t;n++)r+=x[n];return(r"A")}{if(match($2,/^(.*[^D])([0-9]+D)(.+)/,a))print $1"\t"$2"\t" gn(a[1])a[2]gn(a[3])}' FILE
1        49M1D52M        49A1D52A
3        74M3I2D27M        77A2D27A
6        13S14M2D74M        27A2D74A
4        32M2D69M        32A2D69A
7        8M1I17M2D75M        26A2D75A
4        21M1D80M        21A1D80A
5        17M1D72M12S        17A1D84A

   

biobaby

谢谢 能够解决问题的。非常感谢。可是有点看不懂~~~请问可以帮忙解释一下吗？
回复 2# jason680


   

jason680

回复 3# biobaby

那不懂？

都不懂，请学基础...
awk初学之常见问题
http://bbs.chinaunix.net/thread-2309494-1-1.html

   

reb00t

回复 4# jason680


    jason680大神威武霸气。 有种恨铁不成钢的感觉~~

Herowinter

回复 1# biobaby

没楼上的大神写的好.

1. awk '{s1=s2=0;s=match($2,"[0-9]+D")-1;t=match($2,"D[0-9]")+1;split(substr($2,1,s),a,"[A-Z]");for(i in a)s1+=a[i];split(substr($2,t),a,"[A-Z]");for(i in a)s2+=a[i];print $1"\t"$2"\t"s1"A"substr($2,s+1,t-s-1)s2"A"}' i
   
2. 1       49M1D52M        49A1D52A
   
3. 3       74M3I2D27M      77A2D27A
   
4. 6       13S14M2D74M     27A2D74A
   
5. 4       32M2D69M        32A2D69A
   
6. 7       8M1I17M2D75M    26A2D75A
   
7. 4       21M1D80M        21A1D80A
   
8. 5       17M1D72M12S     17A1D84A

复制代码

jason680

回复 5# reb00t

非也

病: 俺病,须医治...
医: 何症,详述之...

biobaby

好的 谢谢！
回复 4# jason680


   

yestreenstars

1. # awk -vOFS='\t' '{t=$2;while(match(t,/([0-9]+)([^0-9]+)/,a)){if(a[2]!="D")s+=a[1];else{$3=s"A"a[0];s=0}sub(a[0],"",t)}$3=$3s"A";s=0}1' i
   
2. 1       49M1D52M        49A1D52A
   
3. 3       74M3I2D27M      77A2D27A
   
4. 6       13S14M2D74M     27A2D74A
   
5. 4       32M2D69M        32A2D69A
   
6. 7       8M1I17M2D75M    26A2D75A
   
7. 4       21M1D80M        21A1D80A
   
8. 5       17M1D72M12S     17A1D84A

复制代码

Herowinter

回复 9# yestreenstars
好久不见, 大神更加犀利了.