如何只提取括号里的字符

catloverat99

求大侠，有文件如下：
ENSRNOG00000004589 transferase activity, transferring glycosyl groups(GO:0016757);carbohydrate binding(GO:0030246)
ENSRNOG00000047193 olfactory receptor activity(GO:0004984)
ENSRNOG00000009686 water channel activity(GO:0015250);glycerol channel activity(GO:0015254);urea channel activity(GO:0015265)
ENSRNOG00000015822 RNA polymerase II core promoter proximal region sequence-specific DNA binding(GO:000097;transcriptional activator activity, RNA polymerase II core promoter proximal region sequence-specific binding(GO:0001077);nucleic acid binding(GO:0003676);DNA binding(GO:0003677);metal ion binding(GO:0046872)

想改成的格式为
ENSRNOG00000004589 GO:0016757;GO:0030246
...
ENSRNOG00000015822 GO:0000978;GO:0001077;GO:0003676;........GO:0046872

haooooaaa

1. awk '{s=$1;for(i=2;i<=split($0,t,"[()]");i++)s=i%2?s:s" "t[i];$0=s}1'

复制代码

1. awk '{gsub("\\)[^(]+\\(| [^(]+\\(|\\)$"," ")}1'

复制代码

haooooaaa

1. sed -r 's/\)[^(]+\(| [^(]+\(|\)$/ /g'

复制代码

sunzhiguolu

1. perl -ple '($v,$_)=split(" ",$_,2);$_="$v ".join(",",/GO:\d+/g)' f

复制代码

ENSRNOG00000004589 GO:0016757,GO:0030246
ENSRNOG00000047193 GO:0004984
ENSRNOG00000009686 GO:0015250,GO:0015254,GO:0015265
ENSRNOG00000015822 GO:0000978,GO:0001077,GO:0003676,GO:0003677,GO:0046872

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. while (<DATA>){
   
6.     (my $v, local $_) = split (' ', $_, 2);
   
7.     my @aT = /\(([^;]+)\b/g;
   
8.     printf ("$v %s\n", join (',', @aT));
   
9. }
   
10. 
    
11. __DATA__
    
12. ENSRNOG00000004589 transferase activity, transferring glycosyl groups(GO:0016757);carbohydrate binding(GO:0030246)
    
13. ENSRNOG00000047193 olfactory receptor activity(GO:0004984)
    
14. ENSRNOG00000009686 water channel activity(GO:0015250);glycerol channel activity(GO:0015254);urea channel activity(GO:0015265)
    
15. ENSRNOG00000015822 RNA polymerase II core promoter proximal region sequence-specific DNA binding(GO:0000978;transcriptional activator activity, RNA polymerase II core promoter proximal region sequence-specific binding(GO:0001077);nucleic acid binding(GO:0003676);DNA binding(GO:0003677);metal ion binding(GO:0046872)

复制代码

ENSRNOG00000004589 GO:0016757,GO:0030246
ENSRNOG00000047193 GO:0004984
ENSRNOG00000009686 GO:0015250,GO:0015254,GO:0015265
ENSRNOG00000015822 GO:0000978,GO:0001077,GO:0003676,GO:0003677,GO:0046872

jcdiy0601

1. awk '{printf("%s",$1);for(i=2;i<=NF;i++)if($i~/GO:/){sub(/.*\(/," ",$i);sub(/\)/,"",$i);sub(/;.*/,";",$i);printf $i}print ""}' file

复制代码

moperyblue

1. grep -oP '(^\S+)|GO:\w+' file|sed -r '/^[^:]+$/{N;s/\n/ /;:a;N;/\n[^:]+$/!{s/\n/;/;ta};P;D}'

复制代码