Perl вложенная регулярное выражение

Question

Текст записи:

(1,2,3,4,{fred,don,max,rat,grp},45,67,mat,jhon,{a,b,1,2,sd[{1,2},{4,5}],45,67,P[{34,56,34},{uni,cast,r}],c{q,ew,3,4},1,2,3,cf{2,4,5,8},6},4,fr{24,45,67},5,NOL) 

Желаемый результат:

(1,2,3,4,{fred:don:max:rat:grp},45,67,mat,jhon,{a:b:1:2:sd[{1:2}:{4:5}]:45:67:P[{34:56:34}:{uni:cast:r}]:c{q:ew:3:4}:1:2:3:cf{2:4:5:8}:6},4,fr{24:45:67},5,NOL) 

потребности быть заменить: на ниже:

1. Все между {} и []
2. Данные имеют вложенную структуру, такую ​​как {{}} и {[],[]}
3. Текстовая запись всегда находится между ().

Любая помощь с perl оценивается.

Answer 1

Вы можете попробовать следующую команду perl, в которой используется позиционное выражение regex.

perl -pe 's/,(?=(?:\{[^{}]*\}|[^{}])*})|,(?=(?:\[[^\[\]]*\]|[^\[\]])*\])/:/g' file 

DEMO