シェルスクリプト総合 その26 [無断転載禁止]©2ch.net

[353 名無しさん＠お腹いっぱい。 2017/09/28(木) 11:41:08.89]

もっとうまく書けそうな気がするものの
perl -pe 'if (/^"/) { @f = split/"/, $_, 3; $f[1] =~ s/,/ /g; $_ = join "\"", @f }'