Perl one liners

Convertir un fichier csv ou les champs sont séparés par des virgules et les champs text entre double quotes en fichier tsv (séparé par des tabulations). Le problème réside dans les virgules qui peuvent être à l’intérieur des quotes.

cat post_title_author | perl -ane 'chop $_ ; $line = $_ ; $line =~ s/(\".+),(.+\")/$1QUOTEDCOMMA$2/g ; $line =~ s/,/\t/g ; $line =~ s/QUOTEDCOMMA/,/g ; print $line,"\n"; '