我试图在触发警报时重试某些逻辑。那可能吗。 我已将警报定义如下:
local $SIG{ALRM} = sub {
if($attempt <=5) {
print "NExt attempt\n";
$attempt = $attempt + 1;
my $val = subroutine_call();
} else{
Carp::confess "Die now\n";
}
我的代码段如下:
foreach my $x (@array)
{
eval {
alarm(2);
my $val = subroutine_call();
alarm(0);
};
print "Moving on \n";
## some code
}
我希望在终止应用程序之前触发警报时重试调用subroutine_call最多3次。在调用subrountine_call之后(不管它是否在触发警报后被调用),它应该显示print语句。
我知道一旦触发警报并且通过警报定义进行subrountine_call并且它不会执行print语句,代码流就会偏离。我希望它表现得好像如果没有触发警报就会有。
这可能吗?我持怀疑态度,但想知道是不是这样。
谢谢,
答案 0 :(得分:5)
local $SIG{ALRM} = sub { die "alarm\n"; };
for my $x (@array) {
my $attempts_remaining = 3;
while (1) {
last if eval {
alarm(2);
subroutine_call();
alarm(0);
return 1;
};
my $e = $@;
die($e) if $e ne "alarm\n";
die("Timeout!\n") if !--$attempts_remaining;
warn("Timeout! Trying again...\n");
}
}