安装PERL DBI
1 需要的程序包 织梦好，好织梦

DBI-1.xx.tar.gz

DBD-Sybase-0.xx.tar.gz 本文来自织梦

来源:
http://www.perl.com/CPAN-local/authors/Michael_Peppler/

http://www.perl.com/CPAN-local/modules/by-module/DBI/TIMB/

2 安装方法 dedecms.com

gunzip DBI-1.xx.tar.gz
tar xvf DBI-1.xx.tar copyright dedecms

perl Makefile.PL
make
make test
make install 织梦内容管理系统

gunzip DBD-Sybase-0.xx.tar.gz
tar xvf DBD-Sybase-0.xx.tar
perl Makefile.PL
make
make test
make install 本文来自织梦

3 基本编程范例:

#!/usr/bin/perl
use DBI; dedecms.com

my $server = "sybase"; 内容来自dedecms

my $dbh = DBI->connect('dbi:Sybase:','sa','',{syb_dbd_server=>$server});
my $sth = $dbh->prepare("sp_help");
$sth->execute();
my $text; dedecms.com

while(($text) = $sth->fetchrow)
{
print $text."";
}
exit(0);