| Raw Input
| "A",B,"C,D,E",F,G,"H,I",J,"K,L,M,N",O
|
|
| Desired Output
| "A",B,"C-D-E",F,G,"H-I",J,"K-L-M-N",O
|
|
Script and Comments
Script1 [ 1] :loop
[ 2] s/^((([^"]*"){2})*[^"]*"[^",]*),/\1-/
[ 3] t loop
| |
Script2 [ 1] s/"([^"]*")/"\n\1/g
[ 2] :loop
[ 3] s/\n([^",]*),/\1-\n/g
[ 4] /\n[^",]*,/b loop
[ 5] s/\n//g
| |