Windows和Linux系统下perl连接SQL Server数据库的方法
本文将提供一些perl连接MicrosoftSQLServer数据库的实例。perl脚本运行在Windows和Linux平台。
Windows平台
如果在Windows平台下运行perl脚本，建议使用依赖DBI的两个模块包，提供标准的数据库接口模块。
DBD::ODBC
DBD::ADO
使用DBD::ODBC
如果选用DBD::ODBC，下面的实例代码将展示如何连接到SQLServer数据库：
useDBI;
#DBD::ODBC
my$dsn='DBI:ODBC:Driver={SQLServer}';
my$host='10.0.0.1,1433';
my$database='my_database';
my$user='sa';
my$auth=‘s3cr3t';
#ConnectviaDBD::ODBCbyspecifyingtheDSNdynamically.
my$dbh=DBI->connect("$dsn;Server=$host;Database=$database",
$user,
$auth,
{RaiseError=>1,AutoCommit=>1}
)||die"Databaseconnectionnotmade:$DBI::errstr";
#PrepareaSQLstatementmy$sql="SELECTid,name,phone_numberFROMemployees";
my$sth=$dbh->prepare($sql);
#Executethestatement
$sth->execute();
my($id,$name,$phone_number);
#Bindtheresultstothelocalvariables
$sth->bind_columns(undef,\$id,\$name,\$phone_number);
#Retrievevaluesfromtheresultset
while($sth->fetch()){
print"$id,$name,$phone_number\n";
}
#Closetheconnection
$sth->finish();
$dbh->disconnect();
你还可以使用预先设置的一个系统DSN来连接。要建立一个系统DSN，可以这样访问控制面板->管理工具->数据源。
使用系统DSN连接，需要更改连接字符串。如下所示：
#ConnectviaDBD::ODBCusingaSystemDSN
my$dbh=DBI->connect("dbi:ODBC:my_system_dsn",
$user,
$auth,
{
RaiseError=>1,
AutoCommit=>1
}
)||die"Databaseconnectionnotmade:$DBI::errstr";
使用DBD::ADO
如果选择DBD::ADO模块，下面的实例展示如何连接到SQLServer数据库。
useDBI;
my$host='10.0.0.1,1433';
my$database='my_database';
my$user='sa';
my$auth=‘s3cr3t';
#DBD::ADO
$dsn="Provider=sqloledb;TrustedConnection=yes;";
$dsn.="Server=$host;Database=$database";
my$dbh=DBI->connect("dbi:ADO:$dsn",
$user,
$auth,
{RaiseError=>1,AutoCommit=>1}
)||die"Databaseconnectionnotmade:$DBI::errstr";
#PrepareaSQLstatement
my$sql="SELECTid,name,phone_numberFROMemployees";my$sth=$dbh->prepare($sql);
#Executethestatement
$sth->execute();
my($id,$name,$phone_number);
#Bindtheresultstothelocalvariables
$sth->bind_columns(undef,\$id,\$name,\$phone_number);
#Retrievevaluesfromtheresultset
while($sth->fetch()){
print"$id,$name,$phone_number\n";
}
#Closetheconnection
$sth->finish();
$dbh->disconnect();
Linux平台
如果是在Linux平台下运行perl脚本，连接SQLServer数据库需要使用到DBD::Sybase包。
安装SQLServer支持库
SybaseDBD包依赖FreeTDS驱动程序。
FreeTDS下载地址：www.freetds.org
安装FreeTDS驱动的说明文档参见：http://www.freetds.org/userguide/config.htm
该驱动没有使用到ODBC.
配置数据源
修改freetds.conf文件包括SQLServer数据库信息，如下所示：
[SS_MY_DB] host=10.0.0.1#orhostnameport=1433 tdsversion=7.0
安装SybaseDBD模块
该模块文档参见：http://search.cpan.org/~mewp/DBD-Sybase/Sybase.pm
此外，需要将sybase环境变量应设置为FreeTDS安装路径，exportSYBASE=/usr/local/freetds
使用SybaseDBI和SQLServerDSN实例
#loadtheDBImodule
useDBI;
useDBD::Sybase;
my$database="my_database";
my$user="sa";
my$auth="s3cr3t";
BEGIN
{
$ENV{SYBASE}="/usr/local";
}
#ConnecttotheSQLServerDatabase
my$dbh=DBI->connect("dbi:Sybase:server=ss_my_db;database=$database",
$user,
$auth
{RaiseError=>1,AutoCommit=>1}
)||die"Databaseconnectionnotmade:$DBI::errstr";
#PrepareaSQLstatement
my$sql="SELECTid,name,phone_numberFROMemployees";
my$sth=$dbh->prepare($sql);
#Executethestatement
$sth->execute();
my($id,$name,$phone_number);
#Bindtheresultstothelocalvariables
$sth->bind_columns(undef,\$id,\$name,\$phone_number);
#Retrievevaluesfromtheresultset
while($sth->fetch()){ print"$name,$title,$phone\n";
}
#Closetheconnection
$sth->finish();
undef$sth;#ThisfixesasegfaultbugwithcertainversionsofDBD::Sybase
$dbh->disconnect();