近日分析extmail的源代码，看到Carp的perl模块，有些搞不懂，perldoc一把，了解了其用法，放在这里备忘！
Carp模块提供了carp(),croak(),confess(),cluck(),shortmess(),longmess()六个函数，这些函数产生的错误信息与warn()，die()类似。不同之处在于，后者标识的是出现错误的行号，前者产生调用错误的子程序命令行位置。
# script_1 source co
#!/usr/bin/perl
package MyPackage ;
sub my_fun {
print "This is warn and die function output message!\n" ;
warn("warn") ;
die("die") ;
}
程序输出：
This is warn and die function output message!
warn at carp.pl line 8.
die at carp.pl line 9.
script 2:source co
#!/usr/bin/perl
package MyPackage ;
use Carp ;
sub my_carp{
print "This is Carp Module function carp croak and confess output message!\n" ;
carp("carp") ;
croak("croak") ;
confess("confess") ;
}
package main ;
MyPackage::my_carp() ;
程序输出：
[root@mail bash]# perl carp.pl
This is Carp Module function carp croak and confess output message!
carp at carp.pl line 20
croak at carp.pl line 20
script 3 source co
#!/usr/bin/perl
use Carp ;
sub on
two() ;
}
sub two {
three() ;
}
sub three {
confess("confess") ;
}
on
程序输出：
[root@mail bash]# perl carp_confess.pl
confess at carp_confess.pl line 12
main::three() called at carp_confess.pl line 9
main::two() called at carp_confess.pl line 6
main::on
script 4 source co
use Carp qw(cluck) ;
cluck "This is how we got here!" ;
print STDOUT Carp::shortmess("This will have caller's details added") ;
print STDOUT Carp::longmess("This will have stack backtrace added") ;
程序输出：
This is how we got here! at new_carp.pl line 3
This will have caller's details added at new_carp.pl line 5
This will have stack backtrace added at new_carp.pl line 6
大概就这么大了。就跟使用warn和die一样的。这个模块能产生更多的错误信息。
评论