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版本的警告是一样的。