Re: Multiple DB Connection Problem

in reply to Multiple DB Connection Problem

I think its the connection string. The following gives the same error:

#!/usr/bin/perl
use warnings; use strict;

use DBI;

my $dbconnectionstring = q{"dbi:Oracle:host=10.0.0.1;sid=dev;","querye
+ditor","editor"};

our $conn2 = DBI->connect($dbconnectionstring);
die($DBI::errstr) unless $conn2;
[download]

You need to parse your connection string to extract dsn, user and password and pass then as individual arguments to DBI's connect method:

use Text::CSV_XS;

my $csv = Text::CSV_XS->new({
                 sep_char => ",",
                 quote_char => '"',
              });

$csv->parse($dbconnectionstring);
my ($dsn,$user,$pass) = $csv->fields();

our $conn2 = DBI->connect($dsn, $user, $pass);
die($DBI::errstr) unless $conn2;
[download]

Comment on Re: Multiple DB Connection Problem Select or Download Code

Replies are listed 'Best First'.
Re^2: Multiple DB Connection Problem by slg_saravanan (Initiate) on May 31, 2007 at 09:10 UTC
Snoopy..Thanks for the suggestion. Is there any other way to do this multiple DB connection without using "use Text::CSV_XS;" module ?	[reply]
Re^3: Multiple DB Connection Problem by Mr. Muskrat (Canon) on May 31, 2007 at 16:26 UTC
You could split $dbconnectionstring on commas or if it were me, I would store the information in 3 different columns.	[reply]

In Section Seekers of Perl Wisdom