是否有Perl模块可以使用用户可配置的分隔符轻松读取/写入CSV文件？

Question

我目前正在优化和维护一个用于分析两个CSV文件以用于不同数据的Perl脚本。完成分析数据后，各种结果将写入CSV文件。但是，根据某些命令行标志，要写入的数据将由逗号（，）或管道（|）分隔。因此，代码有点复杂（主要是因为我的业务部门的成员无法正确编码来挽救他们的生命，但我离题了......）。我想知道是否有某个Perl模块可以在某个地方找到，它允许您从CSV文件读取/写入文件，以及可以配置分隔符的文件。我知道Python有一个内置的CSV模块，可以实现这种功能和灵活性。当我通过CPAN搜索时，发现Text :: CSV模块，但这似乎不允许我配置分隔符。

有什么想法？

Answer 1

这应该工作：

my $csv = Text::CSV->new({ 
    'escape_char' => '\\', 
    'quote_char' => '"', 
    'sep_char' => ',' 
}); 

Answer 2

而且Text::xSV