Programming

 abc,[def,ghi,ijk],lm,(no,pq,rs),{tu,vw,xy},zs,"as,as,fr",'ab,cd,ef'

 abc [def,ghi,ijk] lm (no,pq,rs) {tu,vw,xy} zs "as,as,fr" 'ab,cd,ef'

awk '{gsub(/,\[/," [",$0);gsub(/],/,"] ",$0);gsub(/,\(/," (",$0);gsub(/\), /,")",$0);gsub(/,\"/," \"",$0);gsub(/\",/,"\" ",$0);gsub(/,{/," {",$0);gsub(/},/,"} ",$0);;print}'   Input_file

abc [def,ghi,ijk] lm (no,pq,rs) {tu,vw,xy} zs "as,as,fr" 'ab,cd,ef'

<script>
var str="abc,[def,ghi,ijk],lm,(no,pq,rs),{tu,vw,xy},zs,\"as,as,fr\",'ab,cd,ef'";
console.log(str);
res = str.replace(/,(?=(?:"[^"]*"|\047[^\047]*\047|\([^()]*\)|\[[^\[\]]*\]|\{[^{}]*}|[^"\047\[{}()\]])*$)/g, " ");
console.log(res);
</script>

[akshay@localhost tmp]$ cat infile
abc,[def,ghi,ijk],lm,(no,pq,rs),{tu,vw,xy},zs,"as,as,fr",'ab,cd,ef'

[akshay@localhost tmp]$ perl -pe 's/,(?=(?:"[^"]*"|\047[^\047]*\047|\([^()]*\)|\[[^\[\]]*\]|\{[^{}]*}|[^"\047\[{}()\]])*$)/ /g' infile
abc [def,ghi,ijk] lm (no,pq,rs) {tu,vw,xy} zs "as,as,fr" 'ab,cd,ef'

awk     '       {for (i=1; i<=NF; i++)
                        {if ($i~/[[({]/) IN=1
                         if ($i~/[])}]/) IN=0
                         if ($i~/[\"\047]/)  IN=!IN
                         if (!IN && ($i==",")) $i=" "}
                        }
         1
        ' FS="" OFS="" file
abc [def,ghi,ijk] lm (no,pq,rs) {tu,vw,xy} zs "as,as,fr" 'ab,cd,ef' kl jm ke

awk     '       {for (i=1; i<=NF; i++)
                        {if ($i~/[])}[({\"\047]/)  IN=!IN
                         if (!IN && ($i==",")) $i=" "}
                        }
         1
        ' FS="" OFS="" file