是否有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