Perl - 错误处理

执行和错误总是在一起的。如果您打开的文件不存在。那么如果你没有正确处理这种情况，那么你的程序就会被认为质量很差。

如果发生错误，程序将停止。因此，适当的错误处理用于处理程序执行期间可能发生的各种类型的错误，并采取适当的操作而不是完全停止程序。

您可以通过多种不同的方式识别和捕获错误。在 Perl 中很容易捕获错误并正确处理它们。这里有一些可以使用的方法。

if 语句

当您需要检查语句的返回值时，if 语句是显而易见的选择；例如 -

if(open(DATA, $file)) {
   ...
} else {
   die "Error: Couldn't open the file - $!";
}

这里变量$! 返回实际的错误消息。或者，在有意义的情况下，我们可以将语句减少为一行；例如 -

open(DATA, $file) || die "Error: Couldn't open the file $!";

除非函数

except函数与 if 逻辑相反：语句可以完全绕过成功状态，只有在表达式返回 false 时才执行。例如 -

unless(chdir("/etc")) {
   die "Error: Can't change directory - $!";
}

当您只想在表达式失败时引发错误或替代方案时，最好使用 except语句。该语句在单行语句中使用时也有意义 -

die "Error: Can't change directory!: $!" unless(chdir("/etc"));

这里只有当 chdir 操作失败时我们才会死，而且读起来很好。

三元运算符

对于非常短的测试，您可以使用条件运算符?：

print(exists($hash{value}) ? 'There' : 'Missing',"\n");

这里不太清楚我们想要实现什么，但效果与使用if或except语句相同。当您想要快速返回表达式或语句中的两个值之一时，最好使用条件运算符。

警告功能

warn 函数只是发出警告，将消息打印到 STDERR，但不采取进一步的操作。因此，如果您只想为用户打印警告并继续其余操作，那么它会更有用 -

chdir('/etc') or warn "Can't change directory";

模具功能

die 函数的工作方式与 warn 类似，只是它也调用 exit。在普通脚本中，此函数具有立即终止执行的效果。您应该使用此功能，以防程序中出现错误而无法继续操作 -

chdir('/etc') or die "Can't change directory";

模块内的错误

我们应该能够处理两种不同的情况 -

  • 报告模块中引用模块的文件名和行号的错误 - 这在调试模块时或当您特别想要引发与模块相关的错误而不是与脚本相关的错误时非常有用。

  • 报告引用调用者信息的模块内的错误，以便您可以调试脚本中导致错误的行。以这种方式引发的错​​误对最终用户很有用，因为它们突出显示与调用脚本的起始行相关的错误。

warn和die函数的工作方式与从模块内调用时的预期略有不同。例如，简单模块 -

package T;

require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;

sub function {
   warn "Error in module!";
}
1;

当从如下脚本调用时 -

use T;
function();

它将产生以下结果 -

Error in module! at T.pm line 9.

这或多或少是您所期望的，但不一定是您想要的。从模块程序员的角度来看，这些信息很有用，因为它有助于指出模块本身的错误。对于最终用户来说，所提供的信息是相当无用的，而对于除了熟练的程序员之外的所有人来说，它是完全没有意义的。

此类问题的解决方案是 Carp 模块，它提供了一种简化的方法来报告模块内的错误，从而返回有关调用脚本的信息。Carp模块提供了四种功能：鲤鱼、咯咯声、呱呱声、坦白。下面讨论这些功能。

鲤鱼功能

carp 函数基本相当于 warn，它会将消息打印到 STDERR，而无需实际退出脚本并打印脚本名称。

package T;

require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;

sub function {
   carp "Error in module!";
}
1;

当从如下脚本调用时 -

use T;
function();

它将产生以下结果 -

Error in module! at test.pl line 4

咯咯函数

cluck 函数是一种增强的鲤鱼，它遵循相同的基本原理，但也打印导致调用该函数的所有模块的堆栈跟踪，包括原始脚本的信息。

package T;

require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp qw(cluck);

sub function {
   cluck "Error in module!";
}
1;

当从如下脚本调用时 -

use T;
function();

它将产生以下结果 -

Error in module! at T.pm line 9
   T::function() called at test.pl line 4

呱呱函数

croak函数等同于die ，只不过它将调用者向上一级报告。与 die 一样，此函数也会在向 STDERR 报告错误后退出脚本 -

package T;

require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;

sub function {
   croak "Error in module!";
}
1;

当从如下脚本调用时 -

use T;
function();

它将产生以下结果 -

Error in module! at test.pl line 4

与 carp 一样，关于根据 warn 和 die 函数包含行和文件信息，适用相同的基本规则。

坦白函数

忏悔功能就像cluck一样；它调用 die，然后打印堆栈跟踪一直到原始脚本。

package T;

require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;

sub function {
   confess "Error in module!";
}
1;

当从如下脚本调用时 -

use T;
function();

它将产生以下结果 -

Error in module! at T.pm line 9
   T::function() called at test.pl line 4