Dump database query to CSV

dump-to-csv.pl

#!/usr/bin/env perl

use strict;
use warnings;
use 5.010;
use Carp;
use autodie;
use utf8;

use DBI;
use Text::CSV;

my $sth = DBI->connect(q{dbi:SQLite:foo.db},
                       { RaiseError => 1 })->prepare(q{SELECT foo, baz FROM bar WHERE baz = ?});
$sth->execute('pony!');

# also set custom delimiters here if needed
my $csv = Text::CSV->new({ binary => 1 });
$csv->eol("\r\n");

open my $fh, '>:encoding(utf8)', '/tmp/foobar.csv';

while (my $data = $sth->fetchrow_arrayref) {
    $csv->print($fh, $data);
}

close $fh;