In the interest of this obscure little languange called
Perl (anyone here ever heard of it? ;)), here is a quick
and dirty way via DBD::AnyData:
use strict;
use DBI;
my $any_dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
my $mysql_dbh = DBI->connect(
qw(DBI:mysql:database:host user pass),
{RaiseError=>1}
);
print $any_dbh->func(
'DBI', $mysql_dbh,
'CSV', undef,
{table_name=>'table'},
'ad_convert',
);
jeffa
L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)
|