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

Just curious: How would you quote this?

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

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

Replies are listed 'Best First'.
Re^2: One Liner to double quote every field in a delimited file
by Tux (Canon) on Feb 01, 2014 at 16:00 UTC
    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

      This should work:

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

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