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

來源:互聯網
上載者:User

   這篇文章主要介紹了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);

  };

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.