Perl使用技巧9：模块Carp

arche77

在perl开发中，大家都用过 warn和die吧。

$dbh->do("update star set ok=1") || warn "db err";
$dbh->do("update star set ok=1") || die "db err";

用来短路一些错误操作，warn只警告不终止，die则直接终止。

但是有个麻烦事，如果一大堆函数互相引用的时候，perl的报错看不清楚是那个语句出错了。

test();

sub test {
        die 'zero';
}

运行如下：

zero at /Users/arche/Documents/git/www/cgi/test.pl line 13.
[Finished in 0.5s with exit code 255]

use Carp;

test();

sub test {
        croak 'zero';
}

运行如下：

zero at /Users/arche/Documents/git/www/cgi/test.pl line 15.
        main::test() called at /Users/arche/Documents/git/www/cgi/test.pl line 12
[Finished in 0.5s with exit code 255]

是不是看清楚了，以后就不需要用warn和die了。


#croak=die crap=warn