Perl中捕獲警告資訊、異常資訊並寫入日誌詳解

 　　這篇文章主要介紹了Perl中捕獲警告資訊、異常資訊並寫入日誌詳解,本文分別給出了捕獲警告--不處理、捕獲警告--並轉換成異常、捕獲警告--並寫入日誌、捕獲並寫日誌的完整例子等實用執行個體,需要的朋友可以參考下

　　雖然建議在每個Perl指令碼和模組中開啟警告，可是你又不想使用者看到Perl發出的警告。

　　一方面你想在代碼前面使用use warnings作為你的安全網，另一方面，通常警告會出現在螢幕上。多數情況下，客戶不知道如何處理這些警告。如果幸運的話這些警告僅僅讓客戶驚訝一下，當然，不幸的是他們嘗試著去修複它們... (這裡說的不是Perl程式員。)

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

　　此外，在很多地方還有很多Perl指令碼和應用程式沒有使用use warnings也沒有在#!行中使用-w。加上了use warnings就可能會產生大量的警告。

　　長遠來看，當然是要消除這些警告，但是短期來說呢?

　　即便是長期計劃，你也不能寫出完全沒有BUG的代碼，你也不能確保應用將來永遠不會列印出警告資訊。

　　你能麼?

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

　　訊號

　　Perl有一個叫做%SIG的內建hash表，其中的鍵是作業系統訊號的名字。對應的值是函數(大多數是函數引用)，這些函數會在特定的訊號觸發時被調用。

　　除了系統提供的標準訊號以外，Perl還添加了兩個內部“訊號”。其中一個是

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

　　匿名函數

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

　　捕獲警告--不處理

　　如果添加如下代碼：

　　 代碼如下:

　　local $SIG{__WARN__} = sub {

　　# 此處可以獲得警告資訊

　　};

　　這實際上表示每次程式的某個地方產生了警告資訊時，不做任何處理。基本上，這會隱藏所有的警告。

　　捕獲警告--並轉換成異常

　　You could also write: 你也可以寫成：

　　 代碼如下:

　　local $SIG{__WARN__} = sub {

　　die;

　　};

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

　　如果你想在異常中包含警告資訊，可以這麼寫：

　　 代碼如下:

　　local $SIG{__WARN__} = sub {

　　my $message = shift;

　　die $message;

　　};

　　實際的警告資訊會作為唯一的參數傳遞給匿名函數。

　　捕獲警告--並寫入日誌

　　你可能想在中間做些其他事情：

　　過濾嘈雜的警告資訊，留待後來分析：

　　 代碼如下:

　　local $SIG{__WARN__} = sub {

　　my $message = shift;

　　logger($message);

　　};

　　這裡我們假設logger()是你實現的寫日誌函數。

　　寫日誌

　　假設你的應用程式已經有日誌機制。如果沒有的話，最好加上。即便你不能添加，你也需要作業系統的內建日誌機制。例如Linux的syslog，MS Windows的Event Logger，其它作業系統也有它們內部的日誌機制。

　　在本文的例子裡，我們使用一個自製logger()函數來代表這個想法。

　　捕獲並寫日誌的完整例子

　　代碼如下:

　　#!/usr/bin/perl

　　use strict;

　　use warnings;

　　local $SIG{__WARN__} = sub {

　　my $message = shift;

　　logger('warning', $message);

　　};

　　my $counter;

　　count();

　　print "$countern";

　　sub count {

　　$counter = $counter + 42;

　　}

　　sub logger {

　　my ($level, $msg) = @_;

　　if (open my $out, '>>', 'log.txt') {

　　chomp $msg;

　　print $out "$level - $msgn";

　　}

　　}

　　上面的代碼會在log.txt檔案中添加下面一行：

　　代碼如下:

　　Use of uninitialized value in addition (+) at code_with_warnings.pl line 14.

　　變數$counter和函數count()僅是產生警告樣本的一部分。

　　警告處理函數中的警告資訊

　　__WARN__在其處理函數執行過程中是自動被禁用的。所以在警告處理函數執行過程中產生的(新)警告資訊不會導致無限迴圈。

　　你可以在perlvar文檔中瞭解到更多細節。

　　Avoid multiple warnings

　　需要注意的是重複的警告資訊可能會充斥記錄檔。我可以使用一個簡單的類似緩衝的特性來減少重複警告資訊的數量。

　　 代碼如下:

　　#!/usr/bin/perl

　　use strict;

　　use warnings;

　　my %WARNS;

　　local $SIG{__WARN__} = sub {

　　my $message = shift;

　　return if $WARNS{$message}++;

　　logger('warning', $message);

　　};

　　my $counter;

　　count();

　　print "$countern";

　　$counter = undef;

　　count();

　　sub count {

　　$counter = $counter + 42;

　　}

　　sub logger {

　　my ($level, $msg) = @_;

　　if (open my $out, '>>', 'log.txt') {

　　chomp $msg;

　　print $out "$level - $msgn";

　　}

　　}

　　可以看到，我們把$counter變數賦值成undef，然後再次調用count()函數來產生同樣的警告。

　　我們也把__WARN__的處理函數替換成一個稍微複雜的版本：

　　代碼如下:

　　my %WARNS;

　　local $SIG{__WARN__} = sub {

　　my $message = shift;

　　return if $WARNS{$message}++;

　　logger('warning', $message);

　　};

　　在調用logger之前，會檢查一下當前字串是否已經在%WARNShash表中。如果沒有的話，會添加它並調用logger()。如果已經有了，就調用return，並不二次記錄同樣的事件。

　　你可能回憶起我們在unique values in an array也使用了同樣的點子。

　　local是什麼?

　　在上面所有的例子中，我使用local函數來局部化(警告處理)效果。嚴格來說，在這些例子中我們沒有必要這麼做，因為假設這些代碼是主指令碼的第一部分。這種情況下就無所謂了，畢竟是在全域範圍裡面。

　　然而，最好是這麼用。

　　local對於在模組中限制(對警告)的改變是很重要的。特別是要發布的模組。如果沒有局部化，會影響整個應用程式。limit則會把影響限制在所在的閉合代碼塊裡。

　　避免使用全域的%WARNS

　　如果你正在使用Perl 5.10或者更新的版本，你可以改寫一下代碼來替換掉全域變數%WARNS。要這麼做的話，需在指令碼的開頭使用use v5.10;，然後在匿名函數內部使用state關鍵詞來聲明變數。

　　 代碼如下:

　　#!/usr/bin/perl

　　use strict;

　　use warnings;

　　use v5.10;

　　local $SIG{__WARN__} = sub {

　　state %WARNS;

　　my $message = shift;

　　return if $WARNS{$message}++;

　　logger('warning', $message);

　　};