Using DBD::AnyData
#!/usr/bin/perl -w
use strict;
use diagnostics;
use DBI;
my $dbh = DBI->connect( 'dbi:AnyData(RaiseError=>1):' or die $DBI::err
+str );
$dbh->func(
'example',
'CSV',
'DEMO.db',
{
sep_char => ',',
# eol => "\015",
col_names => 'name,username,time,num1,num2'
},
'ad_catalog'
);
my $sth = $dbh->prepare("SELECT time, name, username, num1, num2 FROM
+example");
$sth->execute() || die "can't fetch all usernames";
while ( my $row = $sth->fetch ) { print "@$row\n"; }
$sth = $dbh->prepare("SELECT username FROM example");
$sth->execute() || die "can't fetch all usernames";
while ( my $row = $sth->fetch ) { print "@$row\n"; }