Re: Multiple DB Connection Problem

[snoopy]

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;

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;

[slg_saravanan]

Snoopy..Thanks for the suggestion.

Is there any other way to do this multiple DB connection without using "use Text::CSV_XS;" module ?

[Mr. Muskrat]

You could split $dbconnectionstring on commas or if it were me, I would store the information in 3 different columns.