DBD::CSVのテスト

csv_test.pl

#!/usr/bin/perl
binmode(STDOUT, ":utf8");  # utf-8でCSVファイルを作っているための対策
use DBI;
$dbh = DBI->connect("dbi:CSV:", undef, undef, {
    f_ext => ".csv/r",
    RaiseError => 1,
    }) or die "Cannot connect: $DBI::errstr";
my $sth = $dbh->prepare("select * from english_name");
$sth->execute;
$sth->bind_columns(\my ($eng_name, $eng_nick_name, $sex, $jpn_name));
while ($sth->fetch) {
    print "$eng_name\t$eng_nick_name\t$sex\t$jpn_name\n";
}
$dbh->disconnect;