如何修复Perl中类eval逻辑内使用next报错的问题

Perl的next流程控制语句只能在其词法作用域的外层循环/带标签块内使用，原代码中next mysql_recover写在or do {}块内部，外层还嵌套了eval {}块，next无法穿透这两层独立块作用域定位到外层的mysql_recover标签，因此触发代码检查报错。

两种写法均可实现完全一致的原有逻辑：

方案1：新增错误标记变量，将next移到块外部 #

my $sql = ...
my $sth = $dbh->prepare($sql);            
my $need_recover = 0;
eval {
    $sth->execute;
}
or do {
    addToLog("SQL Error: $DBI::errstr\n");
    sleep(30);
    $need_recover = 1;
};
next mysql_recover if $need_recover;

方案2：更简洁的标准异常判断写法，无需额外变量 #

eval块末尾加1是为了避免execute返回合法假值（如影响行数为0、执行无返回DDL等场景）导致误触发错误逻辑，next直接处于循环作用域下符合语法要求：

my $sql = ...
my $sth = $dbh->prepare($sql);            
unless (eval { $sth->execute; 1 }) {
    addToLog("SQL Error: $DBI::errstr\n");
    sleep(30);
    next mysql_recover;
}

内容的提问来源于stack exchange，提问作者Dims