f 怎麼用Perl DBI ~ 迪貝之家

怎麼用Perl DBI

我的目標是open source,是不可能花錢買driver,所以要用Perl DBI,首先就要先安裝FreeTDS
再來就是照著下列步驟安裝Sybase DBD模組

得先安裝dbi套件
apt-get install libdbi-perl



$ cd DBD-Sybase-1.16
#這一行很重要 
$ export SYBASE=/usr/local/freetds
$ perl Makefile.PL
$ make
$ make install

There will be some output about missing libraries after perl Makefile.PL. These are normal.
NOTE: here again make test is likely to fail. Writing your own simple test program is highly recommended!

Example  Connect to a server with DBD::Sybase

#!/usr/local/bin/perl
#
use DBI;

my $dbh = DBI->connect("dbi:Sybase:server=JDBC", 'guest', 'sybase', {PrintError => 0});

die "Unable for connect to server $DBI::errstr"
unless $dbh;

my $rc;
my $sth;

$sth = $dbh->prepare("select \@\@servername");
if($sth->execute) {
while(@dat = $sth->fetchrow) {
print "@dat\n";
}
}