perl 数据库链接失败重试机制

最新推荐文章于 2025-06-30 09:52:14 发布

转载最新推荐文章于 2025-06-30 09:52:14 发布 · 155 阅读

本文介绍了一种在Oracle数据库连接失败后的重试机制，并通过一个具体的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;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/16723161/viewspace-1019833/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/16723161/viewspace-1019833/