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 语句在需要设置错误提醒时是非常有用的
上面的 unless 代码可以简写为：
die "Error: 无法打开目录!: $!" unless(chdir("/etc"));
以上错误信息只有在目录切换错误的情况下才会输出
三元运算符
三元运算符 ?: 和 if 语句一样
print(exists($hash{value}) ? '存在' : '不存在',"\n");
上面的代码使用了三元运算符来判断哈希的值是否存在 代码中包含了一个表达式两个值，格式为： 表达式 ? 值一 : 值二
warn 函数
warn 函数用于触发一个警告信息，不会有其他操作。 warn 函数将错误输出到 STDERR(标准输出文件)，通常用于给用户提示：
chdir('/etc') or warn "无法切换目录";
die 函数
die 函数类似于 warn, 但它会执行退出。 die 函数一般用咋错误信息的输出：
chdir('/etc') or die "无法切换目录";
Carp 模块
在 Perl 脚本中，报告错误的常用方法是使用 warn() 或 die() 函数来报告或产生错误。
而 Carp 模块，它可以对产生的消息提供额外级别的控制，尤其是在模块内部
标准 Carp 模块提供了 warn() 和 die() 函数的替代方法，它们在提供错误定位方面提供更多信息，而且更加友好。
在模块中使用时，错误消息中包含模块名称和行号。
carp 函数
carp 函数可以输出程序的跟踪信息，类似于 warn 函数，通常会将该信息发送到 STDERR：
#!/usr/bin/perl =pod file: t.pm author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp; sub function { carp "Error in module!"; } 1;
在脚本调用以下程序:
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut use T; function();
运行以上范例，输出结果为:
$ perl main.pl
Error in module! at main.pl line 13.
cluck 函数
cluck() 与 warn() 类似，提供了从产生错误处的栈回溯追踪。
#!/usr/bin/perl =pod file: t.pm author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp qw(cluck); sub function { cluck "Error in module!"; } 1;
在脚本调用以下程序:
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut use T; function();
运行以上范例，输出结果为:
$ perl main.pl Error in module! at T.pm line 20. T::function() called at main.pl line 13
croak 函数
croak() 与 die() 一样，可以结束脚本。
#!/usr/bin/perl =pod file: t.pm author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp; sub function { croak "Error in module!"; } 1;
在脚本调用以下程序:
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut use T; function();
运行以上范例，输出结果为:
$ perl main.pl
Error in module! at main.pl line 13.
confess 函数
confess() 与 die() 类似，但提供了从产生错误处的栈回溯追踪。
#!/usr/bin/perl =pod file: t.pm author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut package T; require Exporter; @ISA = qw/Exporter/; @EXPORT = qw/function/; use Carp; sub function { confess "Error in module!"; } 1;
在脚本调用以下程序:
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut use T; function();
运行以上范例，输出结果为:
$ perl main.pl
Error in module! at main.pl line 13.