Search Results

Use this in that case:


:up1
s/\("[^,]*\),\(.*"\),/\1!@%\2,/
t up1
:up2
s/\("[^,]*\),\(.*"\)$/\1!@%\2/
t up2



If you notice carefully, one double quotes either ends with comma or...

How about this,
perl -nle 'if(/(.*)(".+?")(.*)/){$vr=$3;printf $1;($repl=$2)=~ s/,/!@%/g; print $repl,$vr;}' inputfile

Try this sed script


:up
s/\("[^,]*\),\(.*"\)/\1!@%\2/
t up