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

概述    第十三章：错误处理       壹陆玖. 要抛出异常，不要返回特殊值或设定标记。       壹柒零. 让失败的内置函数也抛出异常。       壹柒壹. 让所有上下文中的失败都是致命失败。          #把不可接受的失败行为改为抛出异常 ……        useFatal qw( :void locate_and_open);          #稍后 ……        for

 

 

第十三章：错误处理

 

 

 

壹陆玖.

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

 

 

 

壹柒零.

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

 

 

 

壹柒壹.

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

 

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

       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，最底层的派生为先）次序捕获异常对象。

 

 

 

壹捌壹.

自动建立异常类。

 

 

 

壹捌贰.

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

总结

以上是内存溢出为你收集整理的Perl 最佳实践(节选) --- 13全部内容，希望文章能够帮你解决Perl 最佳实践(节选) --- 13所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。