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

bt21cnzy21st

回复 20# zhlong8


   谢谢版主回复 ， 基础语法应该在所有版本上通用吧。

songyc_2015

回复 18# bt21cnzy21st
我用的是5.20.2 activeperl,运行没有问题，估计是上面大神说的原因吧~~~~
看是看懂了，只是自己写不出来，接触perl第三周 ，需要多多向cu大神学习学习~~~~

zhlong8

回复 21# bt21cnzy21st


    旧的代码可以在新版本上跑，但是新代码如果用了旧版本没有的特性就不可能在旧版本上跑啊。/r 是新特性，而且正则表达式引擎要保存很多状态的，当时的版本是不是支持嵌套使用也是问题

jason680

回复 19# bt21cnzy21st


#hope it can help without the modifier /r
$ cat a.pl
use strict;
use warnings;
my $str = '(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})';
$str =~ s/(\{[\w,]+\})/my $x=$1;$x=~s','|'g;$x/ge;
print "$str\n";

$ perl a.pl
(1,1,{1,1,cco1{x|x},cbax[{y|y},{z|z}]})


Note: it seems that the result did not matched what you want
(1,1,{1,1,cco1{x|x},cbax[{y|y}|{z|z}]})