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 =