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

bt21cnzy21st

回复 9# 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不太熟悉， 感谢热心的朋友，给个可以运行的代码，先谢谢了。

bt21cnzy21st

回复 8# songyc_2015


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

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

回复 6# 104359176


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

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

MMMIX

回复 12# bt21cnzy21st


    直接做个正则替换即可：

1. 
   
2. my $str = '(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})';
   
3. $str =~ s/({[\w,]+})/$1=~s','|'rg/ge;
   

复制代码

songyc_2015

回复 9# minirain
好牛，很巧妙，学习了~~~，谢谢大神指点

bt21cnzy21st

回复 14# MMMIX


    首先谢谢大神的回复。 但我复制你的代码到test.pl文件中，内容如下，

my $str = '(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})';
$str =~ s/(\{[\w,]+\})/$1=~s','|'rg/ge;
print $str;

得到语法和编译错误：
syntax error at test.pl line 2, near "s','|'rg "
Execution of test.pl aborted due to compilation errors.

因为我对此语法不熟悉，能否查看一下是什么地方有问题吗，另外可以说说阁下的思路？

非常感谢你抽宝贵的时间查看我的问题， 谢谢。

MMMIX

回复 16# bt21cnzy21st


    我用 Perl 5.18 测试过，没问题。

bt21cnzy21st

回复 15# songyc_2015


    兄弟看懂了吗？
但我复制代码到test.pl文件中，内容如下，

my $str = '(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})';
$str =~ s/(\{[\w,]+\})/$1=~s','|'rg/ge;
print $str;

执行perl test.pl 得到语法和编译错误：
syntax error at test.pl line 2, near "s','|'rg "
Execution of test.pl aborted due to compilation errors.

能指导一下吗

bt21cnzy21st

回复 17# MMMIX


    我用的是5.8.8版本的， 代码如下：
my $str = '(1,1,{1,1,cco1{x,x},cbax[{y,y},{z,z}]})';
$str =~ s/(\{[\w,]+\})/$1=~s','|'rg/ge;
print $str;


得到的错误：

Bareword found where operator expected at test.pl line 2, near "s','|'rg"
syntax error at test.pl line 2, near "s','|'rg "
Execution of test.pl aborted due to compilation errors.


能帮忙看看是不是什么地方可以修改下吗？

zhlong8

回复 19# bt21cnzy21st


    现在最新版本是 5.22.0 而 5.8.0 是2002年发布的，小版本只修bug和升级模块