Perl 最佳实践(节选) --- 13

第十三章：错误处理

壹陆玖.

要抛出异常，不要返回特殊值或设定标记。

壹柒零.

让失败的内置函数也抛出异常。

壹柒壹.

让所有上下文中的失败都是致命失败。

#把不可接受的失败行为改为抛出异常 ……

useFatal qw( :void locate_and_open);

#稍后 ……

formy $filename () {

my$fh = locate_and_open($filename);

my$head = load_header_from($fh);

print$head;

}

壹柒贰.

测试system内置函数的失败时要当心一点。

usePOSIX qw ( WIFEXITED);

#稍后……

WIFEXITED(system$cmd)

Orcroak “Couldn’t run: $cmd ($OS_ERROR)”;

壹柒叁.

对所有失败都抛出异常，包括可复原的失败。

TRY:

formy $try (1..$MAX_TRIES) {

#如果资源成功地取得，就完成了……

eval{

$resource= acquire_resource($resource_id);

LastTRY;

};

#如果不再尝试，就报告不可复原的失败

croak($EVAL_ERROR ) if $try == $MAX_TRIES;

#不然就在随机拉长的时间间距后再试一次……

nap(rand fibonacci($try) ); ghd

}

do_something_using($resource);

壹柒肆.

从调用者的位置报告异常，而不要从抛出异常之处报告。

壹柒伍.

以接收者的方言编写错误消息。

壹柒陆.

以接收者的方言替每条错误消息编写说明文档。

壹柒柒.

每当失败数据必须传给处理程序时，就使用异常对象。

壹柒捌.

当错误消息可能改变时，就应使用异常对象。

壹柒玖.

当两个或多个异常彼此相关时，就应使用异常对象。

壹捌零.

以MDF（most-derived-first，最底层的派生为先）次序捕获异常对象。

壹捌壹.

自动建立异常类。

壹捌贰.

取出扩展的异常处理程序内的异常变量。