Du skal bruge DBI, og du er sandsynligvis bedst ved at bruge DBD::ODBC-udbyderen fra (CPAN ). Hvis du ikke kender til DBI, så skal du læse op om det. Der er en bog (Programmering af Perl DBI ), som er gammel, men stadig gyldig.
Så noget i stil med følgende:
use strict;
use warnings;
use DBI;
# Insert your DSN's name here.
my $dsn = 'DSN NAME HERE'
# Change username and password to something more meaningful
my $dbh = DBI->connect("DBI:ODBC:$dsn", 'username', 'password')
# Prepare your sql statement (perldoc DBI for much more info).
my $sth = $dbh->prepare('select id, name from mytable');
# Execute the statement.
if ($sth->execute)
{
# This will keep returning until you run out of rows.
while (my $row = $sth->fetchrow_hashref)
{
print "ID = $row->{id}, Name = $row->{name}\n";
}
}
# Done. Close the connection.
$dbh->disconnect;