perl 字符替换问题，求解答

bt21cnzy21st

现在有如下如下字符串：
(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})

我需要将 cco1{x,x},cbax[{y,y},{z,z}] 块中的逗号，全部替换成 “|”，

替换后的效果如下：

(1,1,{1,1,cco1{x|x},cbax[{y|y}|{z|z}]})

现在需要将形如：cco1{}和cbax[{},{}]中的逗号全部替换

字符串中的cco1, cbax不确定，有可能还有其他名字如：cc02, cbax02等等。。。。

我对perl不太熟悉， 感谢热心的朋友，给个可以运行的代码，先谢谢了。

bt21cnzy21st

ding ding

bt21cnzy21st

[  如何匹配阿

jason680

回复 1# bt21cnzy21st

$ echo '(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})' | perl -lane '
{
  while(m/(.)/g){
    $x=$1;
    $lvl++ if($x=~/[[{]/);
    $lvl-- if($x=~/[}\]]/);
    $x=~s/,/|/ if($lvl>=2);
    $s.=$x
}
print $s
}'
(1,1,{1,1,cco1{x|x},cbax[{y|y}|{z|z}]})