求教sed可否实现下面的文本处理

jiawei2426

我的初始文件如下：
CKBD2BWP7T 8 15 60 CKBD2BWP7T RDT_CKB_00 (:I(1'b0), :Z());
DFNCND2BWP7T 1 15 15 DFNCND2BWP7T RDT_DFNCN_00 (:CPN(1'b0), :D(1'b0), :Q(), :QN(), :CDN(1'b0));
LNCND2BWP7T 2 15 30 LNCND2BWP7T RDT_LNCN_00 (:EN(1'b0), :D(1'b0), :Q(), :QN());
我想用sed命令做成如下格式：
CKBD2BWP7T:I
DFNCND2BWP7T:CPN
DFNCND2BWP7T:D
DFNCND2BWP7T:CDN
LNCND2BWP7T:EN
LNCND2BWP7T:D
思路大概就是提取每一行的首字符串以及该行中带有(1'b0)字符的字符串大写字母，如果某一行含有n个(1'b0)字符的字符串，就要将该行首字符串提取n次，格式如上。求高人指点。

jiawei2426

晕，怎么发上去这么多表情呢，笑脸是冒号和D，抓狂是冒号和Q

yestreenstars

把你的原文本和目标文本发到代码框吧，或者禁用表情。

jiawei2426

禁用表情果然好使，大意了。

ljwd1000

1. awk -F'[ ,)(]' '{for(i=1;i<=NF;i++)if($(i+1)~/^1\047b0$/)print $1,$i}' file

复制代码

reyleon

1. awk '{for(i=1;i<=NF;i++)if($i~/b0/)print $1":"gensub(/.*:([A-Z]+).*/,"\\1",1,$i)}' file

复制代码

jiawei2426

非常感谢，可以运行，结果OK回复 6# reyleon


   

yestreenstars

1. [root@localhost ~]# perl -lane '1 while(/(:[^(]*)\(1\047b0\)(?{print $F[0],$1})/g)' i
   
2. CKBD2BWP7T:I
   
3. DFNCND2BWP7T:CPN
   
4. DFNCND2BWP7T:D
   
5. DFNCND2BWP7T:CDN
   
6. LNCND2BWP7T:EN
   
7. LNCND2BWP7T:D
   
8. [root@localhost ~]#

复制代码

li0924

1. > awk '{for(i=7;i<=NF;i++){if($i~/b0/){l=split($i,a,"(");print l==3?$1 a[2]:$1 a[1]}}}' lottu07
   
2. CKBD2BWP7T:I
   
3. DFNCND2BWP7T:CPN
   
4. DFNCND2BWP7T:D
   
5. DFNCND2BWP7T:CDN
   
6. LNCND2BWP7T:EN
   
7. LNCND2BWP7T:D

复制代码

kooleon

回复 6# reyleon

看了会gensub ，学习了。