solaris 下如何用perl 的DBI 連接sybase iq 數據庫

編程範例:

#!/usr/bin/perl

use DBI;

my $server = "sybase";

my $dbh = DBI->connect('dbi:Sybase:','sa','',{syb_dbd_server=>$server});

my $sth = $dbh->prepare("sp_help");

$sth->execute();

my $text;

while($text = $sth->fetchrow) {

print $text."\n";

}

exit(0);