Thanks a billion! Isql was working fine.I checked for Sybase path in the .profile and it was /opt/sybase I changed my script accordingly and things seem to work now :)
Thanks once again. anand -----Original Message----- From: Chuck Fox [mailto:[EMAIL PROTECTED] Sent: Monday, April 11, 2005 7:25 PM To: Desai, Anand (HP-GDIC); [email protected] Subject: Re: install_driver(Sybase) failed: DBD::Sybase initialize: Anand, It appears that your environment is not correctly setup. Check that you have sourced in the SYBASE.sh located at /opt/sybase11.9.2. It appears that DBD::Sybase attempted to call ct_init in the Sybase libs and failed to find it. Check the SHLIB_PATH. Use isql to connect to verify that open client is working properly. Then start digging into the perl code. Desai, Anand (HP-GDIC) wrote on 4/11/2005, 8:58 AM: > 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 -- Your Friendly Neighborhood DBA, Chuck
