Perl 教程 之 Perl 错误处理 6

Perl 教程 之 Perl 错误处理 6

Perl 错误处理

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

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

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

cluck 函数

cluck() 与 warn() 类似，提供了从产生错误处的栈回溯追踪。

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