perl 資料庫連結失敗重試機制

在寫資料庫相關的程式時，我們希望在資料庫短暫連線失敗後有重試的機制，重試間隔時間比如設定為：1分，1分，1分，1分，2分鐘，4分鐘，8分鐘，16分鐘，32分鐘九次重試的機制；前4次避免網路瞬斷，再後3次避免機器重啟，後3次避免網路長時間斷……說起來好像比較複雜，其實用二維陣列可以很輕鬆完成這個任務：[@more@]my $owner = shift;
my $OraUserID = "********";
my $OraPassword = "*******";
my $ORADSN;
my @Dsc_Owner=
(
['****', '****'],
['****', '****'] );
foreach (my $i=0;$i {
if(-1 ne index($owner,$Dsc_Owner[$i][0])){$ORADSN = $Dsc_Owner[$i][1];}
}
# print $ORADSN."n";
#設定重試引數,二維陣列說明：[1,60]表明第一次失敗後,過60秒重試
my @try_paras=
(
[1, 60],[2, 60],[3, 60],[4, 120],
[5, 240],[6, 480],[7, 960],[8, 1920]
);

my $dbOra = DBI->connect("dbi:Oracle:$ORADSN",$OraUserID,$OraPassword);

unless ( defined($dbOra) ) {
my $try_cnt = scalar(@try_paras);
foreach (my $cnt=0;$cnt {
LOG("連線Oracle資料庫失敗,$try_paras[$cnt][1]秒後重試...");
sleep($try_paras[$cnt][1]);
$dbOra = DBI->connect("dbi:Oracle:$ORADSN",$OraUserID,$OraPassword);
if (defined($dbOra)){ $cnt = $try_cnt; }
}
die "連線Oracle資料庫失敗 $!" unless(defined($dbOra));
}

LOG("連線Oracle資料庫成功!");

return $dbOra;