shell

biobaby

大家好，我有這樣一個(gè)文件 如下：
1     49M1D52M
3     74M3I2D27M
6     13S14M2D74M
4     32M2D69M
7     8M1I17M2D75M
4     21M1D80M
5     17M1D72M12S

現(xiàn)在我想這樣第一列照常輸出，對于第二列，一般由nM,nI,nD,nS...組成， 現(xiàn)在我想將第二列nD前后除nD之外的其他數(shù)字加和。輸出在第三列如下：
1     49M1D52M      49A1D52A
3     74M3I2D27M    77A2D27A
6     13S14M2D74M  27A2D74A
4     32M2D69M      32A2D69A
7     8M1I17M2D75M   26A2D75A
4     21M1D80M    21A1D80A
5     17M1D72M12S    17A1D89A

希望各路大神幫忙，不知道有沒有描述清楚。 謝謝

   

jason680

回復(fù) 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

謝謝 能夠解決問題的。非常感謝。可是有點(diǎn)看不懂~~~請問可以幫忙解釋一下嗎？
回復(fù) 2# jason680


   

jason680

回復(fù) 3# biobaby

那不懂？

都不懂，請學(xué)基礎(chǔ)...
awk初學(xué)之常見問題
http://72891.cn/thread-2309494-1-1.html

   

reb00t

回復(fù) 4# jason680


    jason680大神威武霸氣。 有種恨鐵不成鋼的感覺~~

Herowinter

回復(fù) 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

復(fù)制代碼

jason680

回復(fù) 5# reb00t

非也

病: 俺病,須醫(yī)治...
醫(yī): 何癥,詳述之...

biobaby

好的 謝謝！
回復(fù) 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

復(fù)制代碼

Herowinter

回復(fù) 9# yestreenstars
好久不見, 大神更加犀利了.