答案

在 Perl 中，错误处理传统上通过 die、warn 函数以及 eval 块来实现。为了确保程序正常结束，建议对于严重错误使用 die，对于警告使用 warn 函数。第二种方法是使用 eval 块操作符捕获致命错误并进行后续处理。

示例：

open my $fh, '<', 'file.txt' or die "无法打开文件: $!
";
printf $fh "Hello" or warn "无法写入: $!
";

# 使用 eval 进行错误处理
my $result = eval {
    risky_function();
    1;
};
unless ($result) {
    print "检测到错误: $@
";
}

此外，还有 Try::Tiny 和 Error 类型的模块，实现在 Perl 中的 try/catch。

伪命题

使用 eval {} 和字符串 eval "..." 的区别是什么，各种方法中有什么潜在问题？

很多人错误地认为它们是相同的。eval { ... } 像块级的 try/catch，而 eval "..." 在运行时编译并执行字符串作为 Perl 代码。在使用字符串时很容易出错，可能使代码遭受 SQL 注入或编译错误。

示例差异：

# 编译并执行字符串作为 Perl 代码
my $var = 'my $x = 2 + 2';
eval $var; # eval 危险！

# 安全的块级变体
my $error = eval {
    die "失败";
};
print $@ if $@;

由于对主题细微之处的不理解而造成的真实错误示例

---

故事

在一个项目中，开发人员使用 eval "代码" 动态生成命令，导致在执行阶段出现难以捕捉的语法错误和调试问题。

---

故事

不正确的错误捕捉：在 eval 内部使用局部变量引发的异常未被处理，因为 $@ 被后续的 log 函数调用覆盖。

---

故事

在旧代码中，只使用 die() 而不使用 try/catch，使 Perl 进程非正常结束，导致数据库事务数据丢失。