Hi,
Can you please help me on this. Trying to run DBD::Sybase module. But then I get the following error while compiling the script:
Can't locate loadable object for module DBI in @INC (@INC contains: ./libs /cm/tools/paks/perl-5.8.0/lib/perl5/5.8.0/i686-linux /cm/tools/paks/perl-5.8.0/lib/perl5/5.8.0 /cm/tools/local/lib/perl5/site_perl/5.8.0/i686-linux /cm/tools/local/lib/perl5/site_perl/5.8.0 /cm/tools/local/lib/perl5/site_perl /cm/tools/apps/lib/perl5/cm_perl/5.8.0/i686-linux /cm/tools/apps/lib/perl5/cm_perl/5.8.0 /cm/tools/apps/lib/perl5/cm_perl .) at libs/DBI.pm line 259
BEGIN failed--compilation aborted at libs/DBI.pm line 259.
Compilation failed in require at ./r1 line 9.
BEGIN failed--compilation aborted at ./r1 line 9.
Just using the following:
#!/usr/bin/perl
$hst=ARGV[0];
$prt=ARGV[1];
$user=ARGV[2];
$passwd=ARGV[3];
use lib './libs';
use DBI;
BEGIN {
$ENV{SYBASE} = '/cm/tools/paks/SybaseOCS-1250_11.32';
}
$dbh = DBI->connect("dbi:Sybase:host=$hst;port=$prt", $user, $passwd);
@return=$dbh->do("select * from SUDs");
print" The following will be data got from SUDs table:\n";
print "\n@return\n";
Thnkx for the help...
Can you please help me on this. Trying to run DBD::Sybase module. But then I get the following error while compiling the script:
Can't locate loadable object for module DBI in @INC (@INC contains: ./libs /cm/tools/paks/perl-5.8.0/lib/perl5/5.8.0/i686-linux /cm/tools/paks/perl-5.8.0/lib/perl5/5.8.0 /cm/tools/local/lib/perl5/site_perl/5.8.0/i686-linux /cm/tools/local/lib/perl5/site_perl/5.8.0 /cm/tools/local/lib/perl5/site_perl /cm/tools/apps/lib/perl5/cm_perl/5.8.0/i686-linux /cm/tools/apps/lib/perl5/cm_perl/5.8.0 /cm/tools/apps/lib/perl5/cm_perl .) at libs/DBI.pm line 259
BEGIN failed--compilation aborted at libs/DBI.pm line 259.
Compilation failed in require at ./r1 line 9.
BEGIN failed--compilation aborted at ./r1 line 9.
Just using the following:
#!/usr/bin/perl
$hst=ARGV[0];
$prt=ARGV[1];
$user=ARGV[2];
$passwd=ARGV[3];
use lib './libs';
use DBI;
BEGIN {
$ENV{SYBASE} = '/cm/tools/paks/SybaseOCS-1250_11.32';
}
$dbh = DBI->connect("dbi:Sybase:host=$hst;port=$prt", $user, $passwd);
@return=$dbh->do("select * from SUDs");
print" The following will be data got from SUDs table:\n";
print "\n@return\n";
Thnkx for the help...