perl - How can I export an Oracle table to tab separated values?

Question

I need to export a table in the database to a tab separated values file. I am using DBI on Perl and SQLPlus. Does it support (DBI or SQLPlus) exporting and importing to or from TSV files?

I can write a code to do my need, But I would like to use a ready made solution if it is available.

Answer 1

It should be relatively simple to dump a table to a file with tab-separated values.

For example:

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

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

$sth->execute;

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

close $outputFile;
$sth->finish;

Note that this will not work well if your data contains either a tab or a newline.