急求助:如何配置perl使用Sybase?!

JerryWin

我使用的是Sybase数据库(Sybase 12)，请问如何在perl5.8.7下配置和使用Sybase::CTlib这个module?
目前我下载是从www.cpan.org上的sybperl-2.18.tar.gz，看了说明，还是没有能够安装和配置好这个这个Module，恳请安装成功过的高手指点并附上相关的说明，谢谢!
也可通过QQ和我联系: 79275118

apile

你怎麽安装的?你一定少安装了什麽module....
另外有些安装过程中需要弄个测试数据库给他测试..sometime可以透过设定ENVIRONMENT VARIABLE跳过..
所以我无法解决的时候会去看Makefile.PL的源代码...

JerryWin

自己经过测试，现在终于配置好了，现在拿出来和大家共同参考!有问题可以共同学习和提高。

关于在UNIX下使用Perl连接Sybase的配置

Step 1：安装FreeTDS模块
这是个Sybase的Client端软件，必须安装。可以从www.freetds.org/software.html上下载源文件安装程序FreeTDS-stable.tgz来进行安装。
可能需要在系统上增加如下的环境变量： LD_LIBRARY_PATH中增加/usr/4lib
安装步骤：
安装FreeTDS
#gunzip FreeTDS-stable.tgz
#tar xvf FreeTDS-stable.tar
#cd freetds-0.63     目前版本是0.63
#./configure --prefix=/usr/local/freetds
#make
#make install
配置FreeTDS
#cd /usr/local/freetds/etc
修改配置文件freetds.conf，在其中增加需要连接的Sybase服务器相关信息，如下：
[TEST]
        host=192.168.0.1
        port=4100
        tds version = 5.0

Step 2：安装和配置DBI-1.50 、DBD-Sybase-1.07 、sybperl-2.18等Module即可。可以从www.cpan.org上下载。

连接示例：
#!/usr/bin/perl
#
use DBI;
use Sybase:Blib;
Sybase:Blib:BSETLCHARSET("eucgb";
Sybase:Blib:BSETLNATLANG("chinese";

$dbh = Sybase:Blib->new('root', '1234', 'TEST');
$dbh->dbcmd("select * from test.name;";
$dbh->dbsqlexec;
while($dbh->dbresults != NO_MORE_RESULTS) {
   while(@data = $dbh->dbnextrow) {
          print @data,"\n";
   }
}
$dbh->dbclose;