PERL連MSSQL

參照了文章：http://space.itpub.net/82392/viewspace-238018

但由於太老，某些功能使用不起

 

#安裝perl
yum install -y perl*

##安裝unixODBC
###如有需要，先安裝支援庫
###yum -y install automake autoconf libtool

wget ftp://ftp.unixodbc.org/pub/unixODBC/unixODBC-2.3.1.tar.gzgunzip unixODBC*.tar.gz tar xvf unixODBC*.tarcd unixODBC-2.3.1./configure  --prefix=/usr/local/unixODBC --enable-gui=nomake make install

##安裝串連SQLServer或Sybase的驅動

wget ftp://ftp.freetds.org/pub/freetds/stable/freetds-stable.tgz

tar vxzf freetds-stable.tgz

 cd freetds-0.91/ 
./configure  --prefix=/usr/local/freetds --with-unixodbc=/usr/local/unixODBC --with-tdsver=8.0 
make 
make install

配置freetds.conf

vim /usr/local/freetds/etc/freetds.conf #如果找不到設定檔，可用：find / -name freetds.conf

添加如下內容：

[SqlServerCD]host=##隱去的資料庫IP地址##port=##隱去的連接埠##tds version=7.1

 這裡完了之後，可以測試一下Freetds是否能成功串連

/usr/local/freetds/bin/tsql -S SqlServerCD -H ##隱去的資料庫IP地址##  -p ##隱去的連接埠## -U ##隱去的使用者名稱## -P ##隱去的密碼##

##安裝DBD-ODBC

export ODBCHOME=/usr/local/unixODBC
wget http://mirrors.btte.net/CPAN/authors/id/M/MJ/MJEVANS/DBD-ODBC-1.37.tar.gztar-xzf DBD-ODBC-1.37.tar.gz

cd DBD-ODBC-1.37 

  perl Makefile.PL -o /usr/local/unixODBC

make 

make install

##配置unixODBC

cd /usr/local/unixODBCvim etc/odbcinst.ini#####加入如下內容[FreeTDS]Driver = /usr/local/freetds/lib/libtdsodbc.so#####儲存vim etc/odbc.ini#####加入如下內容[Server1]Driver = FreeTDS   ;與上邊的FreeTDS相對應Server = ##隱去的伺服器位址##Port = ##隱去的連接埠號碼##TDS_Version = 7.2   ;這個東西必須加，否則會給你報個什麼unexpect EOF~~~這個東西小弟找了快2小時。。。

完了測試：

bin/isql -v Server1  ##隱去的使用者## ##隱去的密碼##

然後，共用ODBC串連庫

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

測試perl

vim test.pl

#!/usr/bin/perluse DBI;$dbh=DBI->connect('dbi:ODBC:Server1','##隱去的使用者##','##隱去的密碼##');my $sth=$dbh->prepare("select * from 表");$sth->execute();while (@data=$sth->fetchrow_array()){print "$data[0] $data[1] $data[2]\n";}

儲存。然後解釋運行

perl test.pl