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

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

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

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

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

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

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

你能麼？

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

訊號per程式設計客棧l有乙個叫做%sig的內建hash表，其中的鍵是作業系統訊號的名字。對應的值是函式（大多數是函式引用），這些函式會在特定的訊號觸發時被呼叫。

除了系統提供的標準訊號以外，perl還新增了兩個內部「訊號」。其中乙個是，它在每次**呼叫warn()函式的時候觸發。另外乙個是__die__，它在每次呼叫die()時觸發。

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

匿名函式

sub 是匿名函式，也就是乙個只有函式體而沒有名字的函式。（在這個例子中函式體也是空的，但是我希望你能明白我的意思。）

捕獲警告--不處理

如果新增如下**：

複製** **如下:

local $sig = sub ;

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

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

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

複製** **如下:

local $sig = sub ;

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

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

複製** **如下:

local $sig = sub ;

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

捕獲警告--並寫入日誌

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

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

複製** **如下:

local $sig = sub ;

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

寫日誌假設你的應用程式已經有日誌機制。如果沒有的話，最好加上。即便你不能新增，你也需要作業系統的內建日誌機制。例如linux的syslog，ms windows的event logger，其它作業系統也有它們內部的日誌機制。

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

捕獲並寫日誌的完整例子

複製** **如下:

#!/usr/bin/perl

use strict;

use warnings;

local $sig = sub ;

my $counter;

count();

print "$counter\n";

sub count

sub logger

}上面的**會在log.txt檔案中新增下面一行：

複製** **如下:

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

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

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

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

你可以在perlvar文件中了解到更多細節。

**oid multiple warnings

需要注意的是重複的警告資訊可能會充斥日誌檔案。我可以使用乙個簡單的類似快取的特性來減少重複警告資訊的數量。

複製** **如下:

#!/usr/bin/perl

use strict;

use warnings;

my %warns;

local $sig = sub ++;

logger('warning', $message);

};my $counter;

count();

print "$counter\n";

$counter = undef;

count();

sub count

sub logger

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

我們也把__warn__的處理函式替換成乙個稍微複雜的版本：

複製** **如下:

my %warns;

local $sig = sub ++;

logger('warning', $message);

&nbs程式設計客棧p; };

在呼叫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 = sub ++;

logger('warning', $message);

};本文標題: perl中捕獲警告資訊、異常資訊並寫入日誌詳解

本文位址:

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

perl內建警告資訊

perl 使用內建警告資訊

去除警告資訊

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

perl內建警告資訊

perl 使用內建警告資訊

去除警告資訊

相關推薦

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