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

Question

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

有什么想法吗？

Answer 1

这应该有效：

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

Answer 2

另外Text::xSV