BEGIN{ $ENV{ORACLE_HOME} = '/home/oracle/product/8.1.7'; $ENV{TWO_TASK} = 'DB';}$dbhpindb= DBI->connect("dbi:Oracle:host=000.000.000.000;sid=pindb", "user", "pass") or die "Unable to connect: $DBI::errstr";
$dbhpintmp = DBI->connect('dbi:Oracle:', q{user/pass@(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST= 000.000.000.000)(PORT=1021)) (CONNECT_DATA=(SID=pindb)))}, "");$dbhpindb= DBI->connect($config{"DB_STRING_PIN"}, $config{"DB_USER_PIN"}, $config{"DB_PASSWD_PIN"});
DB_STRING_PIN=dbi:Oracle:host=000.000.000;sid=pindb
BEGIN
ReplyDelete{
$ENV{ORACLE_HOME} = '/home/oracle/product/8.1.7';
$ENV{TWO_TASK} = 'DB';
}
$dbhpindb= DBI->connect("dbi:Oracle:host=000.000.000.000;sid=pindb", "user", "pass") or die "Unable to connect: $DBI::errstr";
$dbhpintmp = DBI->connect('dbi:Oracle:', q{user/pass@(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST= 000.000.000.000)(PORT=1021)) (CONNECT_DATA=(SID=pindb)))}, "");
ReplyDelete$dbhpindb= DBI->connect($config{"DB_STRING_PIN"}, $config{"DB_USER_PIN"}, $config{"DB_PASSWD_PIN"});
DB_STRING_PIN=dbi:Oracle:host=000.000.000;sid=pindb
ReplyDelete