hi guys,
I am using the following code in order to access a database.
#!/usr/bin/perl
print "READ DATA FROM DATABASE\n";
use DBI;
use strict;
#use DBD::Oracle;
my $user='reassure';
my $pass='R3Assur3';
#my $dsn="dbi:Oracle:orcl";
my $dsn='dbi:Oracle:cobscs.world';
my $dbh = '';
my $sth='';
my @row= '';
my $answa='';
my $answt='';
my $name="ddd03ed";
my $sql="";
my $sth="";
my $dbh="";
#$ENV{ORACLE_HOME} = "/home/oracle/product/9.2.0.1.0"
eval
{
print "connect to database";
$dbh = DBI->connect($dsn, $user, $pass);
print "connected to database\n";
$sql = qq{ SELECT * FROM rtx_test };
#my $sql = "SELECT name from christos1";
#my $sql = qq{ SELECT * FROM cc_test_cases};
print("HELLO\n");
$sth = $dbh->prepare( $sql );
$sth->execute( );
};
if ($@) {
print "An error occurred ($@), continuing\n";
}
#$sth = $dbh->prepare($sql);^M
#$sth->execute($answa, $answt);^M
print("HELLO1\n");
while(@row = $sth->fetchrow_array()) { ^M
print "$row[0]: $row[1]\n"; ^M
}
print("HELLO2\n");
#while ( my(@helloWorldString) = $sth->fetchrow_array) {
#print @helloWorldString, "\n";
#}
$dbh->disconnect( ); # Disconnect
#};
when i am trying to run the script i get the following error.
connect to databaseAn error occurred (install_driver(Oracle) failed: Can't locate DBD/Oracle.pm in @INC (@INC contains: /opt/perl_32/lib/5.8.8/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/5.8.8 /opt/perl_32/lib/site_perl/5.8.8/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/site_perl/5.8.8 /opt/perl_32/lib/site_perl /opt/perl_32/lib/vendor_perl/5.8.8/IA64.ARCHREV_0-thread-multi /opt/perl_32/lib/vendor_perl/5.8.8 /opt/perl_32/lib/vendor_perl .) at (eval 4) line 3.
Perhaps the DBD::Oracle perl module hasn't been fully installed,
or perhaps the capitalisation of 'Oracle' isn't right.
Available drivers: DBM, ExampleP, File, Proxy, Sponge.
One more thing.
I can find this Oracle.pm under the following directory
/oracle/product/10.2.0.2/perl/lib/site_perl/5.8.3/IA64.ARCHREV_0-thread-multi-LP64/DBD/Oracle.pm
Any idea why this happens??
Thank you