[SOLVED] Connecting to remote oracle database using perl??

ashok.g · 01-27-2010, 07:31 AM

How to connect to remote oracle database using perl??
This is what I tried.

Code:

#usr/bin/perl 
use DBI;
use strict;
use warnings;
use DBI;
$ENV{ORACLE_SID}   = "oracle9i";
$ENV{ORACLE_HOME}  = "/opt/oracle";
my $dbname = "test";
my $dbuser = "test";
my $dbpass = "test";
my $dbh = DBI->connect("dbi:Oracle:host=192.168.1.99;$dbname", $dbuser, $dbpass)
             || die "Unable to connect to $dbname: $DBI::errstr\n";

But I am unable to connect.

Any help is highly appreciated

MBybee · 01-27-2010, 09:08 AM

Quote:

Originally Posted by ashok.g

How to connect to remote oracle database using perl??
This is what I tried.

Code:

#usr/bin/perl 
use DBI;
use strict;
use warnings;
use DBI;
$ENV{ORACLE_SID}   = "oracle9i";
$ENV{ORACLE_HOME}  = "/opt/oracle";
my $dbname = "test";
my $dbuser = "test";
my $dbpass = "test";
my $dbh = DBI->connect("dbi:Oracle:host=192.168.1.99;$dbname", $dbuser, $dbpass)
             || die "Unable to connect to $dbname: $DBI::errstr\n";

But I am unable to connect.

Any help is highly appreciated

I do this quite a lot, here's how mine is set:

Code:

my $gDBH = DBI->connect("dbi:Oracle:$dbhost;sid=$dbsid;port=$dbport",$user,$pass) 
        or Fail_Out("Unable to connect: $DBI::errstr\n");

There is another method as well, that looks more 'oracle-ish':

Code:

  $dbh = DBI->connect('dbi:Oracle:', q{scott/tiger@(DESCRIPTION=
  (ADDRESS=(PROTOCOL=TCP)(HOST= foobar)(PORT=1521))
  (CONNECT_DATA=(SID=ORCL)))}, "")

Have you verified that you can get to the listening port (probably 1521) from wherever the script is running? It's possible there is a firewall or something preventing it.

I assume you checked the usual suspects - IP, password, user, listener status, port, etc.

ashok.g · 01-27-2010, 10:26 PM

Quote:

Originally Posted by MBybee

I do this quite a lot, here's how mine is set:

Have you verified that you can get to the listening port (probably 1521) from wherever the script is running? It's possible there is a firewall or something preventing it.

I assume you checked the usual suspects - IP, password, user, listener status, port, etc.

Actually I don't have any DBD::Oracle driver installed on my PC.
But I had it on my remote machine.Is that the problem?

MBybee · 01-28-2010, 08:01 AM

Quote:

Originally Posted by ashok.g

Actually I don't have any DBD::Oracle driver installed on my PC.
But I had it on my remote machine.Is that the problem?

It does need to be on the machine running the Perl script. I'm actually surprised your program even executes without having the correct driver.

When I tried this, I actually got an error instead:

Code:

install_driver(Oracle) failed: Can't locate DBD/Oracle.pm in @INC (@INC contains: /usr/local/lib/perl5/5.8.9/BSDPAN /usr/local/lib/perl5/site_perl/5.8.9/mach /usr/local/lib/perl5/site_perl/5.8.9 /usr/local/lib/perl5/5.8.9/mach /usr/local/lib/perl5/5.8.9 .) at (eval 8) 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, Gofer, Proxy, SQLite, Sponge.

ashok.g · 01-29-2010, 03:47 AM

Quote:

Originally Posted by MBybee

It does need to be on the machine running the Perl script. I'm actually surprised your program even executes without having the correct driver.

I think one should have driver installed on that machine if you want to connect to that driver.

Don't worry I am not able to compile the code without the driver installed on my machine....