PERL连MSSQL_perl_脚本语言_编程语言

PERL连MSSQL

2023-02-09 学习力0

核心提示：参照了文章：http://space.itpub.net/82392/viewspace-238018但由于太老，某些功能使用不起 #安装perlyum install -y perl*##安装unixODBC###如有需要，先安装支持库###yum -y install automake autoconf libtool wget ftp://ftp.unixodbc.org/pub/unixODBC

参照了文章：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.gz
gunzip unixODBC*.tar.gz 
tar xvf unixODBC*.tar
cd unixODBC-2.3.1
./configure  --prefix=/usr/local/unixODBC --enable-gui=no
make 
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://search.cpan.org/CPAN/authors/id/M/MJ/MJEVANS/DBD-ODBC-1.43.tar.gz

tar -xzf DBD-ODBC-1.43.tar.gz

cd DBD-ODBC-1.43

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


make 

make install

##配置unixODBC

cd /usr/local/unixODBC
vim 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/perl
use 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

免责声明：本文仅代表作者个人观点，与乐学笔记（本网）无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
本网站有部分内容均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责，若因作品内容、知识产权、版权和其他问题，请及时提供相关证明等材料并与我们留言联系，本网站将在规定时间内给予删除等相关处理.