去除每行字符串里的第二对括号

daixubinbin

原始文本如下：
abc(a+(b+c+(d-e)+f)-c) -(a+c)*8
ab(f+56-(e+b-(a-b)+(d-e)+bb)-c)
a-(a+b)+(b-c)-(c+d)-(a-c)
abc(a+(f+a+(d-a)+f)-c)a-(a+b)-(c+d)-(a-c)

对应的去除每行字符串里的第二对括号，具体如下：
abc(a+(b+c+(d-e)+f)-c)   ->   abc(a+b+c+(d-e)+f-c)
ab(f+56-(e+b-(a-b)+(d-e)+bb)-c)   ->   ab(f+56-e+b-(a-b)+(d-e)+bb-c)
a-(a+b)+(b-c)-(c+d)-(a-c)   ->   a-(a+b)+b-c-(c+d)-(a-c)
abc(a+(f+a+(d-a)+f)-c)a-(a+b)-(c+d)-(a-c)   ->   abc(a+f+a+(d-a)+f-c)a-(a+b)-(c+d)-(a-c)

legs

1. perl -pe's#^([^(]*\([^(]*)\((([^()]*|\((?3)\))*)\)#$1$2#' file

复制代码

a5love3n

回复 2# legs

还是perl厉害啊，用awk和sed感觉实现不了

daixubinbin

偌大shell区，高手们，来个awk、sed方法

wh7211

回复 1# daixubinbin

1. cat 1
   
2. abc(a+(b+c+(d-e)+f)-c)-(a+c)*8
   
3. ab(f+56-(e+b-(a-b)+(d-e)+bb)-c)
   
4. a-(a+b)+(b-c)-(c+d)-(a-c)
   
5. abc(a+(f+a+(d-a)+f)-c)a-(a+b)-(c+d)-(a-c)
   
6. 
   
7. awk -F "" '{for(i=1;i<=NF;i++){if(a!=1){if($i=="("){c++;if(c==2){$i=""}}else if($i==")"){if(c==2){a=1;$i=""};if(c>1){c--}}};b=b?b""$i:$i};print b;a=b=c=""}' 1
   
8. abc(a+b+c+(d-e)+f-c)-(a+c)*8
   
9. ab(f+56-e+b-(a-b)+(d-e)+bb-c)
   
10. a-(a+b)+b-c-(c+d)-(a-c)
    
11. abc(a+f+a+(d-a)+f-c)a-(a+b)-(c+d)-(a-c)

复制代码

daixubinbin

回复 5# wh7211

666

inanin

学习了。。。