perl 字符串替换问题， 困扰中

bt21cnzy21st

我有一个字符串类似：

(1,1,{1,1},{1,1,{2,2},cco1{2,2},cbax[{2,2},{2,2}]},{ccp1[{2,2},{2,2}]})

这里面有大括号嵌套大括号， 我想做到的是将第二层大括号内的逗号，全部替换成 | 符号.


替换后效果如下：

(1,1,{1,1},{1,1,{2|2},cco1{2|2}|cbax[{2|2}|{2|2}]},{ccp1[{2|2}|{2|2}]})

这个shell应当如何写呢，我研究了好久， 求大神现身

--------------------------------------------------------------------------------------------------------------------------------------------------
20150708 add.

谢谢朋友的热心帮助， 十分感谢了。 不好意思了， 昨天是我把需求搞错了， 现在的需求是：

如下字符串：
(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

bt21cnzy21st

, 顶  顶  顶  顶

bt21cnzy21st

顶 顶

minirain

bt21cnzy21st 发表于 2015-07-07 18:47
我有一个字符串类似：
(1,1,{1,1},{1,1,{2,2},cco1{2,2},cbax[{2,2},{2,2}]},{ccp1[{2,2},{2,2}]})
(1,1,{1,1},{1,1,{2|2},cco1{2|2}|cbax[{2|2}|{2|2}]},{ccp1[{2|2}|{2|2}]})
上面红色“|”全是属于花括号第一层，不属于第二层！


我明天告诉你吧。
{ccp1[{2|2}|{2|2}]}－>{ccp1[{2|2}，{2|2}]}，红色逗号不属于第二层括号，怎么改成“|”。规则不清楚是很难搞出来的！！！

104359176

正则表达式是一门描述字符串的语言，但缺少递归和符号，Perl5 表示递归和符号的规则隐晦，难以理解，难以表述，这类问题，只能用有限的迭代来解决。

1. use 5.012;
   
2. 
   
3. my $str = '(1,1,{1,1},{1,1,{2,2},cco1{2,2},cbax[{2,2},{2,2}]},{ccp1[{2,2},{2,2}]})';
   
4. 
   
5. $str =~ s/
   
6. (?<=\{) # 不捕获开始大括号
   
7. (
   
8. (?:\{.*?\} | [^\{\}]+)+ 大括号必须是成对的，而且只能有一层
   
9. )
   
10. (?=\})  # 不捕获结束大括号
    
11. /replace_str($1)/xmsge;
    
12. 
    
13. say $str;
    
14. 
    
15. sub replace_str {
    
16.   my $str = shift;
    
17.   $str =~ s/(\{.*?\})/replace_comma($1)/ge;
    
18.   return $str;
    
19. }
    
20. 
    
21. sub replace_comma {
    
22.   my $str = shift;
    
23.   $str =~ s/,/:/g;
    
24.   return $str;
    
25. }

复制代码

songyc_2015

回复 6# 104359176
太牛，学习了~~~~,s///xmsge中的x和m选项是什么意思，可否解释一下吗？

songyc_2015

回复 1# bt21cnzy21st

1. $cat test.pl
   
2. #!/usr/bin/env perl
   
3. use strict;
   
4. use warnings;
   
5. use Data::Dumper;
   
6. 
   
7. my $str = '(1,1,{1,1},{1,1,{2,2},cco1{2,2},cbax[{2,2},{2,2}]},{ccp1[{2,2},{2,2}]})';
   
8. my @arr = split /,/, $str;
   
9. my ($flag, $rs) = (0, "");
   
10. for my $item (@arr)
    
11. {
    
12.         $flag++ if $item =~ /{/;
    
13.         $flag-- if $item =~ /}/;
    
14.         $item = $flag eq 2 ? $item."|" : $item.",";
    
15.         $rs .= $item;
    
16. }
    
17. $rs =~ s/,$//;
    
18. print $rs, "\n";
    
19. $perl test.pl

复制代码

minirain

回复 8# songyc_2015

1. #!/usr/bin/env perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. 
   
7. my ($nested);
   
8. 
   
9. my $string = '(1,1,{1,1},{1,1,{2,2},cco1{2,2},cbax[{2,2},{2,2}]},{ccp1[{2,2},{2,2}]})';
   
10.    $string =~ s/((?:\{)|(?:\}))/($1 eq "\{") ?
    
11.                                          "\!".($nested++).$1:
    
12.                                             ($nested > 0)?$1.(--$nested)."\!":$1/gxe ;  #用!0 0!、!1 1!、!2 2!标记{层级1层、2层、3层
    
13. 
    
14. my $nest = 1;# 0为{第1层级，1为{第2层级
    
15. $string =~ s/\!$nest(.*?)$nest\!/($a=$1,$a=~s^\,^\|^g,$a)/ge ;
    
16. $string =~ s/\!\d+//g; $string =~ s/\d+\!//g;
    
17. 
    
18. print $string, "\n";

复制代码

bt21cnzy21st

回复 5# minirain


谢谢朋友的热心帮助， 十分感谢了。 不好意思了， 昨天是我把需求搞错了， 现在的需求是：

如下字符串：
(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不太熟悉， 感谢热心的朋友，给个可以运行的代码，先谢谢了。