Perl и Microsoft SQL
Как подружить Perl и MS SQL?
use DBI;
use DBD::ODBC;
#то, что ниже - в одну строку
my $TFWDSN = 'driver={SQL Server};Server=192.168.1.1;database=dbname;
uid=myuser;pwd=mypass;’;
#то, что выше - в одну строку
my $TFWdbh = DBI->connect(”dbi:ODBC:$TFWDSN”) or die “$DBI::errstrn”;
$TFWdbh->{odbc_SQL_ROWSET_SIZE} = 2; # разрешает несколько одновременных запросов
my $TFWsth = $TFWdbh->prepare(”select * FROM …”) or die “$DBI::errstrn”;
$TFWsth->execute or die “$DBI::errstrn”;
и дальше работаете с MSSQL как обычно.
