My module for ODBC connection to MSSQL -
package DBC::MSSQL;
use DBI;
use strict;
sub new { return __PACKAGE__ } # see perlmonks node_id=183417
sub connect {
my ($pointless, $details) = @_;
my $server = $details->{server} || '(local)';
my $database = $details->{database} || 'master';
my $uid = $details->{uid} || $ENV{OSQLUSER} || 'sa';
my $pwd = $details->{password} || $ENV{OSQLPASSWORD} || '';
my $DSN =
"driver=\{SQL Server\};
Server=$server;
database=$database;
uid=$uid;
pwd=$pwd;";
DBI->connect("dbi:ODBC:$DSN") or die "$DBI::errstr\n";
}
1;
=pod
=head1 SYNOPSIS
use DBC::MSSQL;
my $dbh = DBC::MSSQL->connect(
{
server => '(local)', # optional
database => 'pubs', # optional
uid => 'sa', # optional
pwd => '' # optional
}
);
$dbh->do("create table test (c char(1))");
=cut