perl通过unixODBC连接SQLServer_语言综合

概述本文讲述三个内容: 一:说明二:环境配置三: *** 作脚本内容一:说明 MS从来没有提供过SQLServer for Linux,所以大家也不要去尝试在Linux系统安装SQLServer,但是可以通过ODBC连接Windows系统的SQLServer数据库； WindowsServer 2003用户注意：在Windows Server 2003系统上安装的SQLServer是不会打开1433端

本文讲述三个内容:

一:说明

二:环境配置

三: *** 作脚本内容

一:说明

MS从来没有提供过sqlServer for linux,所以大家也不要去尝试在linux系统安装sqlServer,但是可以通过ODBC连接windows系统的sqlServer数据库；
windowsServer 2003用户注意：
在windows Server 2003系统上安装的sqlServer是不会打开1433端口的,所以请windows2003用户在安装完sqlServer之后一定装上sqlServer SP3布丁

二:安装相关驱动及环境配置

如果没安装DBI最好先安装DBI 不然后面会报错

DBI安装：DBI详细信息参考：http://dbi.perl.org/
1.下载DBI包：
下载地址:http://search.cpan.org/CPAN/authors/ID/T/TI/TIMB/DBI-1.620.tar.gz

tar xzf DBI-1.620.tar.gz进入解压包内 perl Makefile.PL make testmakemake install (如果不是root用户，要sudo一下）

1.下载相关软件 unixODBC、freetds和DBD-ODBC

首先需要下载3个文件：
linux系统的ODBC
unixODBC-2.2.8.tar.gz ( http://www.unixodbc.org)

连接sqlServer或Sybase的驱动
freetds-0.62.4.tar.gz ( http://www.freetds.org)

perl的ODBC模块
DBD-ODBC-1.12.tar.gz ( http://cpan.perl.org)
把下载到的三个文件放到同一个目录

2.安装unixODBC

# tar vxzf unixODBC-2.2.8.tar.gz# cd unixODBC-2.2.8# ./configure --prefix=/usr/local/unixODBC --enable-gui=no# make# make install

3.安装freetds

# tar vxzf freetds-0.62.4.tar.gz# cd freetds-0.62.4# ./configure --prefix=/usr/local/freetds --with-unixodbc=/usr/local/unixODBC --with-tdsver=8.0# make# make install

4.安装DBD-ODBC
在安装之前要先设置一下环境变量

# export ODBCHOME=/usr/local/unixODBC

之后开始编译安装

# tar vxzf DBD-ODBC-1.12.tar.gz# cd DBD-ODBC-1.12# perl Makefile.PL# make# make install

所有的软件到现在都安装完成了，接下来就是配置了

5.配置freetds

# cd /usr/local/freetds# vi etc/freetds.conf

修改以下的一段，并把;去掉
改好之后的内容：
[ MyServer2k] #不同驱动的此处名字不同注意下面测试时注意对应
host=192.168.0.32
port=1433
tds version=8.0

其中的[MyServer2k]代表在客户端使用的服务器名称，host代表sqlServer服务器的IP地址，port代表端口，测试连接；

其配置项解释如下：
tds version: 指明tds协议的版本，连接数据库时使用，如果在环境变量中没有设置
此项,则由此配置决定，协议版本可取4.2,5.0,7.0,8.0。

host: 数据库服务器的主机名或者ip地址。

port: 数据库服务器的监听端口，可以取任何有效的端口值，一般而言Sybase sql10以前为1433，10以上用5000，而Sybase sqlAnywhere 7是2638，Microsoft sql server则用1433。此配置可以被环境变量中的TDSPORT改写。

initial block size: 此值只能取512的倍数，默认为512，指定了协议块的最大值，
一般不要改变此默认配置。

dump file: 任何有效的文件名，指明了转储文件的路径并且会打开日志记录。

dump file append: yes或者no，决定是否追加保存到dump file文件中。

timeout：设置处理的最大等待时间。

connect timeout：设置连接的最大等待时间。

emulate little endian: yes或者no,是否强制大端机使用小端方式与MS Server通信。

clIEnt charset: 任何有效的iconv字符集。默认值为ISO-8859-1,使FreeTDS使用iconv在数据库服务器和用户程序之间转换。

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

注意,clIEnt charset 必需大于或等于服务端数据库使用的字符集.

例如,服务端数据库是 MS sql Server 2000,字符集是 GB2312.
那么 clIEnt charset 可以设置为 GB2312(等于),GB18030(大于),UTF-8(大于)但不能设为ISO-8859-1(小于),Shift_JIS(不等于).
由于 UTF-8 是所由字符集的超集,因此设置为 UTF-8 总是可行的.
此外,FreeTDS的clIEnt charset不能设置为 UTF16. 这时目前该软件设计的局限,其官方网站称,在未来版本中可能会增加对clIEnt charset UTF16的支持.

# bin/tsql -S MyServer2k -H 192.168.0.32 -p 1433 -U sa -P password1> use gameDB2> go1> select count(*) from t_ip2> go41> quit

一切都很顺利
现在来说明以下这些参数的作用，-S MyServer2k是在freetds.conf中定义好的，-H 192.168.0.32服务器IP地址，和freetds.conf中的一致，如果使用了-S参数，这个参数可以不用，-p 1433用来指定端口是1433 ，-U sa用来指定连接数据库的用户名，-P password用来指定连接数据库的密码。

6.配置unixODBC

# cd /usr/local/unixODBC

向ODBC添加sqlServer驱动

# vi etc/odbcinst.ini

写入如下内容：
[ TDS] ;驱动名称
Description = MS-sqlServer ;描述
Driver = /usr/local/freetds/lib/libtdsodbc.so ;驱动程序
Setup = /usr/local/freetds/lib/libtds.so ;不要问我，我也不知道这是什么
fileUsage = 1

或者

[FreeTDS]
Driver = /usr/local/freetds/lib/libtdsodbc.so
;Threading = 1

保存退出

添加DSN

# cd /usr/local/unixODBC

# vi etc/odbc.ini

写入如下内容
[ 123] ;DSN名称
Driver = TDS ;ODBC驱动与上面odbcinst.ini中的驱动名称对应
Server = 192.168.0.32 ;sqlserver服务器IP 或者 Servername = MyServer2k ;在 freetds.conf中定义
Database = gameDB ;要使用的数据库
Port = 1433 ;端口
Socket =
Option =

Stmt =

或者

[zzq_cq]
Driver = FreeTDS
Server = 192.168.0.89
Port = 1433
TDS_Version = 7.2
Database=db
User=sa
Password=123
clIEnt charset=utf-8

保存并退出，测试ODBC的连接

# bin/isql -v 123 sa password

sql> select count(*) from t_ip
+----------+
| |
+----------+
| 4 |
+----------+
sql> quit
OK，测试通过，开始测试perl能否正确使用ODBC
在使用perl连接ODBC之前要做些准备工作
把ODBC的共享库都复制到/usr/lib目录

# cp /usr/local/unixODBC/lib/libodbc.* /usr/lib

*** 作脚本时如果报错:

install_driver(ODBC) Failed: Can't load '/usr/local/lib64/perl5/auto/DBD/ODBC/ODBC.so' for module DBD::ODBC: libodbc.so.2: cannot open shared object file: No such file or directory at /usr/lib64/perl5/DynaLoader.pm line 200.
at (eval 5) line 3
Compilation Failed in require at (eval 5) line 3.
Perhaps a required shared library or dll isn't installed where expected
at createalltable.pl line 27

则运行如下:

# find / -name "libodbc.so"
/usr/local/unixODBC/lib/libodbc.so

# echo "/usr/local/unixODBC/lib/" >> /etc/ld.so.conf

# ldconfig

三: *** 作脚本内容

# vi test.pl

内容如下
#!/usr/bin/perl
use DBI;
$dbh=DBI->connect('dbi:ODBC: 123','sa','password'); //这里的123于上面odbc.ini中定义的DSN名称对应
my $sth=$dbh->prepare("select * from t_ip"); //要执行的SQL语句
$sth->execute();
while (@data=$sth->fetchrow_array()){ //把得到的内容放到data列表中
print "$data[0] $data[1] $data[2]\n";

}

资源释放语句,关闭语句(与MysqL有点区别MysqL可以直接disconnect)：

$sth->finish;

$dbh->disconnect;

只单独disconnect会报错:

DBI::db=HASH(0x812938)->disconnect invalIDates 1 active statement handle
(either destroy statement handles or call finish on them before disconnecting)

注意是 $sh对应位置的变量 finish 而不是 $dbh

否则会报错:

Can't locate object method "finish" via package "DBI::db"

保存退出

# perl test.pl

PS：如果你拿到一台机子不知道它的驱动可以进入/usr/local/unixODBC/etc中查看配置文件 odbcinst.ini 和odbc.ini

参考资料:

http://space.itpub.net/82392/vIEwspace-238018

http://opsyun.blog.51cto.com/1037036/713910

PS:!!!!!注意在linux中用perl提取sqlserver的数据时，linux系统的编码要跟sqlserver数据库的编码相同不然提取出的数据会是乱码。比如 sqlserver中的数据是gbk 则运行perl的linux系统也必须设为 gbk的环境用 export LANG=zh_CN.GBK 详见:mysql乱码问题完美解决篇(我用的perl其他语言类推可解)

总结

以上是内存溢出为你收集整理的perl通过unixODBC连接SQLServer全部内容，希望文章能够帮你解决perl通过unixODBC连接SQLServer所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。

欢迎分享，转载请注明来源：内存溢出

原文地址: http://outofmemory.cn/langs/1279658.html