雖然建議在每個Perl腳本和模塊中開啟警告，可是你又不想用戶看到Perl發(fā)出的警告。

一方面你想在代碼前面使用use warnings作為你的安全網(wǎng)，另一方面，通常警告會出現(xiàn)在屏幕上。多數(shù)情況下，客戶不知道如何處理這些警告。如果幸運(yùn)的話這些警告僅僅讓客戶驚訝一下，當(dāng)然，不幸的是他們嘗試著去修復(fù)它們... （這里說的不是Perl程序員。）

第三方面，你或許想要保存這些警告供之后分析。

此外，在很多地方還有很多Perl腳本和應(yīng)用程序沒有使用use warnings也沒有在#!行中使用-w。加上了use warnings就可能會產(chǎn)生大量的警告。

長遠(yuǎn)來看，當(dāng)然是要消除這些警告，但是短期來說呢？

即便是長期計劃，你也不能寫出完全沒有BUG的代碼，你也不能確保應(yīng)用將來永遠(yuǎn)不會打印出警告信息。

你能么？

你可以在警告打印到屏幕之前捕獲它們。

信號
Perl有一個叫做%SIG的內(nèi)建hash表，其中的鍵是操作系統(tǒng)信號的名字。對應(yīng)的值是函數(shù)（大多數(shù)是函數(shù)引用），這些函數(shù)會在特定的信號觸發(fā)時被調(diào)用。

除了系統(tǒng)提供的標(biāo)準(zhǔn)信號以外，Perl還添加了兩個內(nèi)部“信號”。其中一個是<h__warn__< span="">，它在每次代碼調(diào)用warn()函數(shù)的時候觸發(fā)。另外一個是__DIE__，它在每次調(diào)用die()時觸發(fā)。

在本文中，我們會看到這些是怎樣影響警告信息的。

匿名函數(shù)

sub { }是匿名函數(shù)，也就是一個只有函數(shù)體而沒有名字的函數(shù)。（在這個例子中函數(shù)體也是空的，但是我希望你能明白我的意思。）

捕獲警告--不處理

如果添加如下代碼：
代碼如下:
  local $SIG{__WARN__} = sub {
     # 此處可以獲得警告信息
  };

這實(shí)際上表示每次程序的某個地方產(chǎn)生了警告信息時，不做任何處理?；旧?，這會隱藏所有的警告。

捕獲警告--并轉(zhuǎn)換成異常

You could also write: 你也可以寫成：
代碼如下:
  local $SIG{__WARN__} = sub {
    die;
  };

這樣會在每次產(chǎn)生警告的時候調(diào)用die()，也就是把每個警告轉(zhuǎn)換成異常。

如果你想在異常中包含警告信息，可以這么寫：
代碼如下:
  local $SIG{__WARN__} = sub {
    my $message = shift;
    die $message;
  };

實(shí)際的警告信息會作為唯一的參數(shù)傳遞給匿名函數(shù)。

捕獲警告--并寫入日志
你可能想在中間做些其他事情：

過濾嘈雜的警告信息，留待后來分析：
代碼如下:
  local $SIG{__WARN__} = sub {
    my $message = shift;
    logger($message);
  };