You might want to try reinstalling DBD::Oracle, seems like a broken install.
Ilya
> -----Original Message-----
> From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
> Sent: Thursday, August 09, 2001 5:08 AM
> To: [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: error running newly installed perl DBI & new oracle instance
>
>
>
> New oracle instance. New perl DBI install on windows.
>
> Error:
> --------------------
>
> install_driver(Oracle) failed: Can't load
> 'C:\Perl\site\5.005\lib/MSWin32-x86-object/auto/
> DBD/Oracle/Oracle.dll' for module DBD::Oracle: load_file:A
> dynamic link library (DLL) init
> ialization routine failed at
> C:\Perl\5.005\lib/MSWin32-x86-object/DynaLoader.pm
> line 168. at (eval 1) line 2
>
> DBI::install_driver('DBI', 'Oracle') called at
> C:\Perl\site\5.005\lib/DBI.pm line 348 DBI::connect('DBI',
> 'DBI:Oracle:ora3.dnax.org', 'scott', 'tiger', 'HASH(0x821578)' )
> called at scipt3.pl line 8
>
> ---------------------
>
> Can't tell which is misconfigured. Perl DBI
> or Oracle instance! How do I validate perl install by calling
> another networked oracle instance from this perl installation to
> see if it connects to another instance? Anyone have pointer to
> steps & binaries which flawlessly installs perl dbi on windows.
> I'm using the orielly CD from the win32 lizard book which has
> worked fine on other systems (but is 2 yrs old). The script (
> below) works fine on other oracle/perl/DBi windows installations.
> ------------------------------------
> #
> use DBI;
> print $ENV{ORACLE_SID};
> print "\n";
> print "\n";
> my $dbh =
> DBI->connect('DBI:Oracle:ora3.dnax','scott','tiger',\%attr)
> or die "Couldn't connect to database: " . DBI->errstr;
> my $sth = $dbh->prepare('select * from emp where ename = ?')
> or die "Couldn't prepare statement: " . $dbh->errstr;
> print "If name present, will print HIREDATE and ENAME\n";
> print "\n";
> print "Enters row tuple for ename here > ";
> while ($ename = <>) { # Read input from Beth
> my @data;
> chomp $ename;
> print "1\n";
> $sth->execute($ename) # Execute the query
> or die "Couldn't execute statement: " . $sth->errstr;
> # Read matching records and print 'em out
> while (@data = $sth->fetchrow_array()) {
> my $lasttname = $data[1];
> my $id = $data[4];
> print "2\n";
> print "\t$id: $ename $lastname \n";
> }
> if ($sth->rows == 0) {
> print "3\n";
> print "No names matched `$ename'.\n\n";
> }
> $sth->finish;
> print "\n";
> print "Enter name> ";
> }
> $dbh->disconnect;
