将CSV文件转换为txt文件

Question

我正在使用perl通过以下命令将逗号分隔的文件转换为制表符分隔的文件：

perl -e ' $sep=","; while(<>) { s/\Q$sep\E/\t/g; print $_; } warn "Changed $sep to tab on $. lines\n" ' csvfile.csv > tabfile.tab

但是，我的文件还有其他逗号，我不想在特定的列中分开。 这是我的文件的示例：

ADNP, "descript1, descript2", 1
PTB, "descriptA, descriptB", 5

我只想将引号外的逗号转换为制表符：

ADNP    descript1, descript2    1
PTB    descriptA, descriptB    5

无论如何，可以使用perl，python或bash进行此操作吗？

Answer 1

在Perl中使用Text::CSV琐碎：

#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV;

#configure our read format using the default separator of ","
my $input_csv = Text::CSV->new( { binary => 1 } );
#configure our output format with a tab as separator. 
my $output_csv = Text::CSV->new( { binary => 1, sep_char => "\t", eol => "\n" } );

#open input file
open my $input_fh, '<', "sample.csv" or die $!;
#iterate input file - reading in 'comma separated' 
#printing out (to stdout -can use filehandle) tab separated. 
while ( my $row = $input_csv->getline($input_fh) ) {
    $output_csv->print( \*STDOUT, $row );
}

Answer 2

在python中

import csv

with open('input', 'rb') as inf:
    reader = csv.reader(inf)
    with open('output', 'wb') as out:
        writer = csv.writer(out, delimiter='\t')
        writer.writerows(reader)

Answer 3

您需要正则表达式来帮助您。 在python中，它就是：

>>> re.split(r'(?!\B"[^"]*),(?![^"]*"\B)',  'ADNP, "descript1, descript2", 1'
['ADNP', ' "descript1, descript2"', ' 1']

Answer 4

建立rll的regex答案，就可以像现在一样将其变成perl oneliner

perl -ne 'BEGIN{$,="\t";}@a=split(/(?!\B"[^"]*),(?![^"]*"\B)/);print @a' csvfile.csv > tabfile.tab

Answer 5

这将起作用：

perl -e '$sep=","; while(<STDIN>) { @data = split(/(\Q$sep\E?\s*"[^"]+"\s*\Q$sep\E?)/); foreach(@data){if(/"/){s/^\Q$sep\E\s*"//;s/"\s*\Q$sep\E$//;}else{s/\Q$sep\E/\t/g;}}print(join("\t",@data));} warn "Changed $sep to tab on $. lines\n"' < csvfile.csv > tabfile.tab

将括号放入模式中进行拆分，将捕获的分隔符与拆分元素一起返回，并有效地将包含引号的字符串分隔为单独的列表元素，在检测到引号时可以将其区别对待。 您只需去除引号中的字符串的逗号和引号，并替换其他元素中的制表符，然后将这些元素与制表符连接（这样，带引号的字符串与制表符就可以与其他已经制表符的字符串连接起来。

Answer 6

您正在寻找Text :: CSV模块。 解析CSV文件时有很多注意事项，您真的不想自己处理所有这些文件。