Perl使用技巧9：模塊Carp

arche77

在perl開發(fā)中，大家都用過 warn和die吧。

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

用來短路一些錯(cuò)誤操作，warn只警告不終止，die則直接終止。

但是有個(gè)麻煩事，如果一大堆函數(shù)互相引用的時(shí)候，perl的報(bào)錯(cuò)看不清楚是那個(gè)語句出錯(cuò)了。

test();

sub test {
        die 'zero';
}

運(yùn)行如下：

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';
}

運(yùn)行如下：

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