in reply to Re: One Liner to double quote every field in a delimited file
in thread One Liner to double quote every field in a delimited file

Joe,43,anytown,anystate,zipcode,"71""","40°26'47""N 079°58'36""W"

or

"Joe","43","anytown","anystate","zipcode","71""","40°26'47""N 079°58'36""W"

Enjoy, Have FUN! H.Merijn

Replies are listed 'Best First'.
Re^3: One Liner to double quote every field in a delimited file
by Skeeve (Parson) on Feb 01, 2014 at 16:41 UTC

    This should work:

    chomp($_=<DATA>); $_= join(',', map { s/"/""/g; '"' . $_ . '"' } split /,/) . "\n";

    s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
    +.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e