📅 最后修改于: 2020-11-02 03:42:33 🧑 作者: Mango
执行和错误总是并存的。如果要打开的文件不存在。如果您没有正确处理这种情况，则认为您的程序质量很差。
如果发生错误，程序将停止。因此，可以使用适当的错误处理来处理各种类型的错误，这些错误可能在程序执行期间发生，并采取适当的措施而不是完全停止程序。
您可以通过多种不同方式来识别和捕获错误。在Perl中捕获错误，然后正确处理它们非常容易。这里有几种可以使用的方法。
当需要检查语句的返回值时， if语句是显而易见的选择。例如-
if(open(DATA, $file)) {
...
} else {
die "Error: Couldn't open the file - $!";
}
这里变量$！返回实际的错误消息。另外，在合理的情况下，我们可以将语句减少到一行。例如-
open(DATA, $file) || die "Error: Couldn't open the file $!";
除非函数与if：逻辑相反，否则语句可以完全绕过成功状态，并且仅在表达式返回false时才执行。例如-
unless(chdir("/etc")) {
die "Error: Can't change directory - $!";
}
仅当表达式失败时，才想引发错误或替代方法时，最好使用else语句。该语句在单行语句中使用时也很有意义-
die "Error: Can't change directory!: $!" unless(chdir("/etc"));
在这里，仅当chdir操作失败并且它读取良好时，我们才会死亡。
对于非常简短的测试，可以使用条件运算符?：
print(exists($hash{value}) ? 'There' : 'Missing',"\n");
此处我们要实现的目标还不是很清楚，但是效果与使用if或else语句相同。当您要快速返回表达式或语句中的两个值之一时，最好使用条件运算符。
警告函数仅会发出警告，一条消息会打印到STDERR，但不会采取进一步措施。因此，如果您只想为用户打印警告并继续进行其余操作，它会更有用-
chdir('/etc') or warn "Can't change directory";
die函数的作用与warn相似，只是它还会调用exit。在普通脚本中，此函数具有立即终止执行的作用。如果程序中有错误，则应使用此函数，以防继续进行-
chdir('/etc') or die "Can't change directory";
我们应该能够处理两种不同的情况-
报告模块中的错误并引用模块的文件名和行号-这在调试模块时，或者在您特别想引发与模块相关而不是与脚本相关的错误时很有用。
在引用调用者信息的模块中报告错误，以便您可以调试脚本中导致错误的行。以这种方式引发的错误对于最终用户很有用，因为它们会突出显示与调用脚本的原始行有关的错误。
警告和死函数的工作原理与从模块内部调用时的预期略有不同。例如，简单模块-
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函数与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
与鲤鱼一样，根据警告和死点功能，关于行和文件信息的包含也适用相同的基本规则。
坦白的函数就像是叫声;它调用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