php数据库连接重试机制,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/，如需转载，请注明出处，否则将追究法律责任。