Perl中捕獲警告信息、異常信息并寫(xiě)入日志詳解

2020-10-31 14:51:09

字體：大中小

供稿：網(wǎng)友

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

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

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

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

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

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

你能么？

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

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

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

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

匿名函數(shù)

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

捕獲警告--不處理

如果添加如下代碼：

復(fù)制代碼代碼如下:

  local $SIG{__WARN__} = sub {
     # 此處可以獲得警告信息
  };

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

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

You could also write: 你也可以寫(xiě)成：

復(fù)制代碼代碼如下:

  local $SIG{__WARN__} = sub {
    die;
  };

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

如果你想在異常中包含警告信息，可以這么寫(xiě)：

復(fù)制代碼代碼如下:

  local $SIG{__WARN__} = sub {
    my $message = shift;
    die $message;
  };

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

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

過(guò)濾嘈雜的警告信息，留待后來(lái)分析：

復(fù)制代碼代碼如下:

  local $SIG{__WARN__} = sub {
    my $message = shift;
    logger($message);
  };

這里我們假設(shè)logger()是你實(shí)現(xiàn)的寫(xiě)日志函數(shù)。

寫(xiě)日志

假設(shè)你的應(yīng)用程序已經(jīng)有日志機(jī)制。如果沒(méi)有的話，最好加上。即便你不能添加，你也需要操作系統(tǒng)的內(nèi)建日志機(jī)制。例如Linux的syslog，MS Windows的Event Logger，其它操作系統(tǒng)也有它們內(nèi)部的日志機(jī)制。

在本文的例子里，我們使用一個(gè)自制logger()函數(shù)來(lái)代表這個(gè)想法。

捕獲并寫(xiě)日志的完整例子

復(fù)制代碼代碼如下:

  #!/usr/bin/perl
  use strict;
  use warnings;
 
  local $SIG{__WARN__} = sub {
    my $message = shift;
    logger('warning', $message);
  };
 
  my $counter;
  count();
  print "$counter/n";
  sub count {
    $counter = $counter + 42;
  }
 
 
  sub logger {
    my ($level, $msg) = @_;
    if (open my $out, '>>', 'log.txt') {
        chomp $msg;
        print $out "$level - $msg/n";
    }
  }

上面的代碼會(huì)在log.txt文件中添加下面一行：

復(fù)制代碼代碼如下:

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

變量$counter和函數(shù)count()僅是產(chǎn)生警告示例的一部分。

警告處理函數(shù)中的警告信息

__WARN__在其處理函數(shù)執(zhí)行過(guò)程中是自動(dòng)被禁用的。所以在警告處理函數(shù)執(zhí)行過(guò)程中產(chǎn)生的（新）警告信息不會(huì)導(dǎo)致無(wú)限循環(huán)。

你可以在perlvar文檔中了解到更多細(xì)節(jié)。

Avoid multiple warnings

需要注意的是重復(fù)的警告信息可能會(huì)充斥日志文件。我可以使用一個(gè)簡(jiǎn)單的類(lèi)似緩存的特性來(lái)減少重復(fù)警告信息的數(shù)量。

復(fù)制代碼代碼如下:

#!/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 "$counter/n";
  $counter = undef;
  count();
 
  sub count {
    $counter = $counter + 42;
  }
 
  sub logger {
    my ($level, $msg) = @_;
    if (open my $out, '>>', 'log.txt') {
        chomp $msg;
        print $out "$level - $msg/n";
    }
  }

可以看到，我們把$counter變量賦值成undef，然后再次調(diào)用count()函數(shù)來(lái)產(chǎn)生同樣的警告。

我們也把__WARN__的處理函數(shù)替換成一個(gè)稍微復(fù)雜的版本：

復(fù)制代碼代碼如下:

  my %WARNS;
  local $SIG{__WARN__} = sub {
      my $message = shift;
      return if $WARNS{$message}++;
      logger('warning', $message);
  };

在調(diào)用logger之前，會(huì)檢查一下當(dāng)前字符串是否已經(jīng)在%WARNShash表中。如果沒(méi)有的話，會(huì)添加它并調(diào)用logger()。如果已經(jīng)有了，就調(diào)用return，并不二次記錄同樣的事件。

你可能回憶起我們?cè)趗nique values in an array也使用了同樣的點(diǎn)子。

local是什么？
在上面所有的例子中，我使用local函數(shù)

主站蜘蛛池模板：上栗县| 绥化市| 中阳县| 越西县| 衡阳市| 岳池县| 祁阳县| 黑水县| 宜城市| 翁源县| 崇左市| 郑州市| 新巴尔虎右旗| 盐源县| 汶川县| 都匀市| 泽库县| 资兴市| 囊谦县| 腾冲县| 鄱阳县| 常山县| 奉贤区| 将乐县| 福安市| 扬州市| 和田市| 娱乐| 赫章县| 博野县| 镇安县| 锡林郭勒盟| 临沭县| 扶风县| 沈阳市| 新巴尔虎右旗| 上犹县| 丰镇市| 会东县| 霍城县| 江西省|

国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

Perl中捕獲警告信息、異常信息并寫(xiě)入日志詳解