DBI->connect(
"dbi:ODBC:Driver={$ODBCdriver};Server=$SQLserver;Database=$SQLdata
+base;UID=$SQLuser;PWD=$SQLpassword;Port=$SQLport",
{ PrintError => 0,
RaiseError => 1,
AutoCommit => $AutoCommit,
FetchHashKeyName => 'NAME_lc'
},
);
I would split that up, and construct the values separately to keep things somewhat understandable:
my $dsn = "dbi:ODBC:Driver={$ODBCdriver};Server=$SQLserver;Database=$S
+QLdatabase,$SQLport;UID=$SQLuser;PWD=$SQLpassword; ...";
my $dbi_options = { PrintError => 0,
RaiseError => 1,
AutoCommit => $AutoCommit,
FetchHashKeyName => 'NAME_lc'
};
my $dbh = DBI->connect( $dsn, undef, undef, $dbi_options );
|