perl - 如何将 Oracle 表导出为制表符分隔值？

Question

我需要将数据库中的表导出到制表符分隔值文件。我在 Perl 和 SQLPlus 上使用 DBI。它是否支持(DBI 或 SQLPlus)从 TSV 文件导出和导入？

我可以编写代码来满足我的需要，但如果可用的话，我想使用现成的解决方案。

Answer 1

使用制表符分隔值将表转储到文件应该相对简单。

例如:

open(my $outputFile, '>', 'myTable.tsv');

my $sth = $dbh->prepare('SELECT * FROM myTable');

$sth->execute;

while (my $row = $sth->fetchrow_arrayref) {
    print $outputFile join("\t", @$row) . "\n";
}

close $outputFile;
$sth->finish;

请注意，如果您的数据包含制表符或换行符，这将无法正常工作。