Perl 错误处理

程序运行过程中，总会碰到各式各样的错误，比如打开一个不存在的文件。

程序运行过程中如果出现错误就会停止，我们就需要使用一些检测方法来避免错误，从而防止程序退出。

Perl 提供了多中处理错误发方法，接下来我们一一介绍。

if 语句

if 语句可以判断语句的返回值，实例如下：

if(open(DATA, $file)){
   ...
}else{
   die "Error: 无法打开文件 - $!";
}

程序中变量 $! 返回了错误信息。 我们也可以将以上代码简化为如下代码：

open(DATA, $file) || die "Error: 无法打开文件 - $!";

unless 函数

unless函数与 if 相反，只有在表达式返回 false 时才会执行，如下所示：

unless(chdir("/etc")){
   die "Error: 无法打开目录 - $!";
}

unless语句在你要设置错误提醒时是非常有用的。我么也可以将以上代码简写为：

die "Error: 无法打开目录!: $!" unless(chdir("/etc"));