Learning Perl,4th Edition(2-3 内建警告)

2.3 perl 的内建警告机制

    perl 可以被设置成通知用户警告的方式，当有可疑的东西在你的程序中运行时。

    使用 -w 在命令行，打开警告开关。

    $perl -w my_program

    或者，如果总是需要警告，你可以请求他们在 #!行。

    #！/usr/bin/perl -w

    这个也可以在非unix系统上运行， 传统的习惯写成这样，因为路径对perl

    不会产生影响：

    #!perl -w

    如果是5.6或者以后的版本，你可以使用编译指令打开warnings.（小心，

    因为它不会起作用 对于早期的perl版本)

    #!/usr/bin/perl

    usr warnings;

    现在，perl 会给一个警告，如果你把'12fred34'用作一个数字:

    Argument "12fred34" isn't numeric

    当然， 警告通常是对程序员有意义的，不是为了最终用户。如果一个程序员

    不看这个警告，它很可能没有任何用处。 警告不会改变你的程序的行为，除非

    他偶尔发生缺陷的时候。如果你得到一个警告消息 却不能理解，你可以取得一个更长的

    解释通过使用 diagnostics编译指示。perldiag 主页 有短的警告信息也有长的详细解释。

    #！/usr/bin/perl

    use diagnostics;

    当你添上了 use diagnostics编译指示，你的程序运行时看上去会暂停一会儿。

    那是因为你的程序需要做很多工作（正在狼吞虎咽大块的内存），当你正想读详细文档

    一旦perl 提醒你有错误。

    如果需要，这可以作为一个加速程序的措施，一旦你不再需要读这些警告文档，你可以

    删除 use diagnostics编译指示。（当然更好的做法是你可以修改自己的程序来避免产生

    警告，这样仅仅是减少读取输出).

    一个更深的优化是使用一个perl的命令行选项 -M,只有当需要的时候才载入编译指示

    ，避免每次都要修改源程序来使diagnostics有效或者无效。

     $ perl -Mdiagnostics ./my_program

    Argument "12fred34" isn't numeric in addition (+) at ./my_program line 17 (#1)

        (W numeric) The indicated string was fed as an argument to

        an operator that expected a numeric value instead.  If you're

        fortunate the message will identify which operator was so unfortunate.

    当我们跑过代码时，Perl 将能够警告我们一个错误已经发生，我们将会指出它，但是不能

   依赖这些文本和未来的perl的RELEASE版本的警告是一样的。