Help..
I have been struggling to get DBI to work on my server...
Here is the code..
#! /usr/bin/perl

#use strict;
BEGIN
{
$ENV{SYBASE} = "/opt/sybase11.9.2";
}
use DBI;
print "Here's a list of DBI drivers:\n";

my @available_drivers = DBI->available_drivers('quiet');
my $driver;

foreach $driver (@available_drivers)
{
   print "$driver\n";
   }

foreach $key (sort keys(%INC)) {
   print "$key => $INC{$key}\n";
   }

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


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

    my $rc;
    my $sth;

    $sth = $dbh->prepare("select [EMAIL PROTECTED]@servername");
    if($sth->execute) {
        while(@$dat = $sth->fetchrow) {
                        print "@dat\n";
                            }
                            }
                          my  $key;
and the output is 
Here's a list of DBI drivers:
DBM
ExampleP
File
Proxy
Sponge
Sybase
AutoLoader.pm => /opt/perl-uxpe/lib/5.8.0/AutoLoader.pm
Carp.pm => /opt/perl-uxpe/lib/5.8.0/Carp.pm
Config.pm => /opt/perl-uxpe/lib/5.8.0/PA-RISC1.1-thread-multi/Config.pm
Cwd.pm => /opt/perl-uxpe/lib/5.8.0/PA-RISC1.1-thread-multi/Cwd.pm
DBI.pm =>
/opt/perl-uxpe/lib/site_perl/5.8.0/PA-RISC1.1-thread-multi/DBI.pm
DirHandle.pm => /opt/perl-uxpe/lib/5.8.0/DirHandle.pm
DynaLoader.pm =>
/opt/perl-uxpe/lib/5.8.0/PA-RISC1.1-thread-multi/DynaLoader.pm
Exporter.pm => /opt/perl-uxpe/lib/5.8.0/Exporter.pm
Exporter/Heavy.pm => /opt/perl-uxpe/lib/5.8.0/Exporter/Heavy.pm
ExtUtils/Installed.pm => /opt/perl-uxpe/lib/5.8.0/ExtUtils/Installed.pm
ExtUtils/Liblist.pm => /opt/perl-uxpe/lib/5.8.0/ExtUtils/Liblist.pm
ExtUtils/Liblist/Kid.pm =>
/opt/perl-uxpe/lib/5.8.0/ExtUtils/Liblist/Kid.pm
ExtUtils/MM.pm => /opt/perl-uxpe/lib/5.8.0/ExtUtils/MM.pm
nstall_driver(Sybase) failed: DBD::Sybase initialize: ct_init(1100)
failed at /opt/perl-uxpe/lib/5.8.0/PA-RISC1.1-thread-multi/DynaLoader.pm
line 249.
Compilation failed in require at (eval 36) line 3.

 at ./test.pl line 29
can someone please help

Anand Desai

Reply via email to