Windows和Linux系统下perl连接SQL Server数据库的方法

1. Windows系统下perl连接SQL Server数据库的方法：

首先需要安装DBD::ODBC模块，可以使用cpanm进行安装，执行如下命令：

cpanm DBD::ODBC

安装后可以使用以下perl代码连接SQL Server数据库：

use DBI;

my $dsn = 'dbi:ODBC:driver={SQL Server};Server=127.0.0.1;Database=testdb';
my $dbh = DBI->connect($dsn,'testuser','testpass',{RaiseError => 1});

my $sth = $dbh->prepare("SELECT * FROM test");
$sth->execute();

while(my $row = $sth->fetchrow_hashref()){
    print $row->{id} . "\t" . $row->{name} . "\t" . $row->{amount} . "\n";
}

$sth->finish();
$dbh->disconnect();

其中，$dsn是ODBC数据源名称，可以根据实际情况修改为自己的DSN配置信息。$dbh是连接对象，通过prepare函数可以准备SQL语句并返回一个句柄$sth，$sth->execute()执行查询操作，$sth->fetchrow_hashref()获取数据行并以hash方式返回，$sth->finish()释放内存，$dbh->disconnect()关闭数据库连接。

1. Linux系统下perl连接SQL Server数据库的方法：

在Linux系统下，需要先安装unixODBC和unixODBC-devel两个软件，使用yum或者apt-get进行安装：

yum install unixODBC unixODBC-devel

安装完成后需要配置ODBC数据源，参考如下样例配置文件/etc/odbc.ini：

[testdb]
Driver = /usr/lib64/libtdsodbc.so
Server = 127.0.0.1
Port = 1433
Database = testdb
TDS_Version = 7.1

其中Driver指定ODBC Driver的路径，Server为SQL Server数据库主机地址，Port为数据库端口号，Database为连接的数据库名称，TDS_Version为TDS协议的版本号。

安装完成并配置好数据源后，可以使用以下perl代码连接SQL Server数据库：

use DBI;

my $dsn = 'dbi:ODBC:testdb';
my $dbh = DBI->connect($dsn,'testuser','testpass',{RaiseError => 1});

my $sth = $dbh->prepare("SELECT * FROM test");
$sth->execute();

while(my $row = $sth->fetchrow_hashref()){
    print $row->{id} . "\t" . $row->{name} . "\t" . $row->{amount} . "\n";
}

$sth->finish();
$dbh->disconnect();

其中，$dsn是ODBC数据源名称，可以根据实际情况修改为自己的DSN配置信息。$dbh是连接对象，通过prepare函数可以准备SQL语句并返回一个句柄$sth，$sth->execute()执行查询操作，$sth->fetchrow_hashref()获取数据行并以hash方式返回，$sth->finish()释放内存，$dbh->disconnect()关闭数据库连接。