Перенос данных базы данных perl, csv, tsv

Question

Я пишу небольшой скрипт в perl для моего клиента, который будет извлекать определенные данные из базы данных и отправляет электронное письмо с этими данными клиенту через вложение. Сам скрипт не является проблемой, проблема в файле. Я думал, что стандартный .csv-файл будет в порядке, и скрипт делает то, что он должен делать с ним, без каких-либо проблем, но клиенты, которые продолжают обрабатывать данные, нуждаются в файле .tsv без каких-либо разделителей, таких как двойные кавычки. Проблема в том, что данные базы данных содержат специальные символы, которые им нужны, например текст с новыми строками и двойные кавычки. После запуска скрипта он создает .tsv, но специальные символы испортили его, поэтому им нужно как-то избежать, к сожалению, я не могу использовать двойные кавычки для этого, например, в CSV-файле. Есть ли лучшее решение для этого?

Спасибо.

Answer 1

Использование Text::CSV настроен на использование вкладок в качестве разделителей:

#!/usr/bin/env perl 
use strict; 
use warnings qw(all); 
use Text::CSV; 

my $tsv = Text::CSV->new({ 
    #quote_char  => undef, 
    #escape_char  => undef, 
    sep_char  => "\t", 
    eol    => "\n", 
    quote_space  => 0, 
    quote_null  => 0, 
}); 

my @line = ("column1\t", 12345, scalar localtime); 
$tsv->print(\*STDOUT, \@line);