shell文本替换问题，欢迎应战

bt21cnzy21st

回复 7# Herowinter

谢谢在百忙之中看我的问题


现在我要的最终效果是如下，其中只替换有cco1和cbax后的部分，其他不管

原文：
(1,1,{1,1,cco1{-1,0, -1,1438081612000,70, 0, 0},cbax[{"OnPeakAccountID", 1800, 997699, 1970-01-01 07:00:00, 0}, {"FreeUnits", 1800, 997699, 1970-01-01 07:00:00, 0}]})

替换后：
(1,1,{1,1,cco1(-1|0| -1|1438081612000|70| 0| 0),cbax[("OnPeakAccountID"| 1800| 997699| 1970-01-01 07:00:00| 0)| ("FreeUnits"| 1800| 997699| 1970-01-01 07:00:00| 0)]})



   

bt21cnzy21st

回复 6# rulebook

感谢回复，

现在我想要的最终效果是如下，其中只替换有cco1和cbax后的部分，其他不管

原文：
(1,1,{1,1,cco1{-1,0, -1,1438081612000,70, 0, 0},cbax[{"OnPeakAccountID", 1800, 997699, 1970-01-01 07:00:00, 0}, {"FreeUnits", 1800, 997699, 1970-01-01 07:00:00, 0}]})

替换后：
(1,1,{1,1,cco1(-1|0| -1|1438081612000|70| 0| 0),cbax[("OnPeakAccountID"| 1800| 997699| 1970-01-01 07:00:00| 0)| ("FreeUnits"| 1800| 997699| 1970-01-01 07:00:00| 0)]})



   

bt21cnzy21st

up，这个论坛的人气还挺旺的

Herowinter

回复 11# bt21cnzy21st

这样可以,但是...

1. 
   
2. awk 'match($0,/cco1\{[^}]*\}/){s1=substr($0,1,RSTART-1);s2=substr($0,RSTART,RLENGTH);s3=substr($0,RSTART+RLENGTH);sub(/{/,"(",s2);sub(/}/,")",s2);gsub(/,/,"|",s2);$0=s1""s2""s3} match($0,/cbax\[[^]]*\]/){s1=substr($0,1,RSTART-1);s2=substr($0,RSTART,RLENGTH);s3=substr($0,RSTART+RLENGTH);gsub(/{/,"(",s2);gsub(/}/,")",s2);gsub(/,/,"|",s2);$0=s1""s2""s3}1' urfile
   
3. (1,1,{1,1,cco1(-1|0| -1|1438081612000|70| 0| 0),cbax[("OnPeakAccountID"| 1800| 997699| 1970-01-01 07:00:00| 0)| ("FreeUnits"| 1800| 997699| 1970-01-01 07:00:00| 0)]})
   

复制代码

haooooaaa

1. $ awk '{patsplit($0,t,"(cco1{[^}]*}|cbax\\[[^\\]]*\\])",m);for(i=1;i<length(m);i++){gsub(",","|",t[i]);gsub("{","(",t[i]);gsub("}",")",t[i]);s=s""t[i]""m[i]}print m[0]""s""m[length(m)];s=b}' FILE
   
2. (1,1,{1,1,cco1(-1|0| -1|1438081612000|70| 0| 0),cbax[("OnPeakAccountID"| 1800| 997699| 1970-01-01 07:00:00| 0)| ("FreeUnits"| 1800| 997699| 1970-01-01 07:00:00| 0)]})

复制代码

substr函数

回复 1# bt21cnzy21st

大神，我想战个痛快。
不过可惜，
看不懂题目，
被迫放弃不玩了。

bt21cnzy21st

回复 15# haooooaaa

谢谢，但patsplit' 函数好像没定义在我的版本上，报错如下，能换个方式吗

function `patsplit' not defined


   

bt21cnzy21st

回复 14# Herowinter

看得有点晕了， 这么长， 感觉阁下欲言又止的样子， 能否说说思路


   

Herowinter

回复 18# bt21cnzy21st

笨办法, 不大满意自己的代码而已, 结果正确吗?
   

bt21cnzy21st

大虾， 这个脚本针对特定的这个能转换，但我多复制几个cbax ,cco1就不行了啊， 测试文本如下：

(1,1,{1,1,cco1{-1,0, -1,1438081612000,70, 0, 0},cbax[{"OnPeakAccountID", 1800, 997699, 1970-01-01 07:00:00, 0}, {"FreeUnits", 1800, 997699, 1970-01-01 07:00:00, 0}],cbax[{"OnPeakAccountID", 1800, 997699, 1970-01-01 07:00:00, 0}, {"FreeUnits", 1800, 997699, 1970-01-01 07:00:00, 0}],cco1{-1,0, -1,1438081612000,70, 0, 0}})


回复 14# Herowinter