perl DBI连接oracle的问题

对于不同的ORACLE连接串，可能需要调整连接方式,都需要有ORACLE客户端：

 

1. dwapprac =
     (DESCRIPTION =
     (ADDRESS = (PROTOCOL = TCP)(HOST = 10.125.60.25)(PORT = 1521))
     (ADDRESS = (PROTOCOL = TCP)(HOST = 10.125.60.26)(PORT = 1521))
     (LOAD_BALANCE = yes)
     (CONNECT_DATA =
       (SERVER = DEDICATED)
       (SERVICE_NAME = dwapprac)
       (FAILOVER_MODE =
         (TYPE = SELECT)
         (METHOD = BASIC)
         (RETRIES = 180)
         (DELAY = 5)
       )
     )
   )

 

my $db_url="dbi:Oracle:$database_name";
                my $dbh = DBI->connect($db_url,$db_user,$db_password
                                ,{AutoCommit => 1
                                ,RaiseError => 0
                                ,PrintError => 0}
                               ) or printf STDERR "$DBI::err ($DBI::errstr)\n";
                unless ( defined($dbh) ) { return undef; }
                return ($db_type,$dbh);

 

2. dwapp =
  (DESCRIPTION =
    (LOAD_BALANCE=NO)
    (ADDRESS_LIST =
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.125.70.54)(PORT = 1522))
      (ADDRESS = (PROTOCOL = TCP)(HOST = 10.125.70.55)(PORT = 1522))
    )
    (CONNECT_DATA =
      (SERVICE_NAME = dwapp)
    )
  )

 

 

my $db_url="dbi:Oracle:host=$host;sid=$database_name;port=$port";
                my $dbh = DBI->connect($db_url,$db_user,$db_password
                                ,{AutoCommit => 1
                                ,RaiseError => 0
                                ,PrintError => 0}
                               ) or printf STDERR "$DBI::err ($DBI::errstr)\n";
                unless ( defined($dbh) ) { return undef; }
                return ($db_type,$dbh);