#!/usr/local/bin/perl
#
use DBI;
my $dbh = DBI->connect("dbi:Sybase:server=JDBC", 'guest', 'sybase', {P
+rintError => 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";
}
}
And here's the error I got:
install_driver(Sybase) failed: Can't continue after import errors at /
+usr/local/lib/perl5/site_perl/5.6.1/sun4-solaris/DBD/Sybase.pm line 9
+2
BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.
+6.1/sun4-solaris/DBD/Sybase.pm line 92.
Compilation failed in require at (eval 626) line 3.
|