亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > Perl > 正文

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

2020-10-31 14:51:09
字體：大 中 小
來源：轉載
供稿：網友

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

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

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

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

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

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

你能么？

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

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

除了系統提供的標準信號以外，Perl還添加了兩個內部“信號”。其中一個是<h__warn__< span="">，它在每次代碼調用warn()函數的時候觸發。另外一個是__DIE__，它在每次調用die()時觸發。

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

匿名函數

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 "$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";
    }
  }

上面的代碼會在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 "$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，然后再次調用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函數亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

亚洲精品国产精品久久清纯直播| 亚洲美女动态图120秒| 日韩中文字幕网| 欧美精品在线观看| 操日韩av在线电影| 国产成人精品优优av| 91在线观看免费高清完整版在线观看| 亚洲第一中文字幕| 日韩精品在线观看网站| 亚洲午夜色婷婷在线| 欧美性xxxxxx| 亚洲精品欧美一区二区三区| 国产欧美在线观看| 国产91精品黑色丝袜高跟鞋| 国产欧美日韩视频| 久久久久久com| 亚洲精品在线观看www| 国产精品夜间视频香蕉| 久久免费国产精品1| 国产999精品久久久影片官网| 久久久精品国产亚洲| 久久综合亚洲社区| 国产精品久久久久久超碰| 夜夜躁日日躁狠狠久久88av| 欧美黄色片免费观看| 久久99国产精品自在自在app| 色一情一乱一区二区| 亚洲第一区在线观看| 亚洲精品福利视频| 国产主播精品在线| 欧美一级黑人aaaaaaa做受| 91沈先生在线观看| 激情久久av一区av二区av三区| 久久影视三级福利片| 亚洲欧美国产va在线影院| 国产亚洲精品成人av久久ww| 久久视频在线看| 亚洲欧美另类国产| 国产在线观看精品| 亚洲国内精品在线| 国产日本欧美一区二区三区| 九色成人免费视频| 欧美大片va欧美在线播放| 亚洲第一视频网站| 国产精品草莓在线免费观看| 北条麻妃99精品青青久久| 欧美www视频在线观看| 欧美激情综合亚洲一二区| 亚洲精品久久久久久久久久久久| 亚洲成人激情小说| 91精品久久久久久久久| 欧美一级视频在线观看| 欧美电影免费观看大全| 97视频在线观看播放| 久久噜噜噜精品国产亚洲综合| 日韩欧美亚洲国产一区| 久久国产一区二区三区| 国产精品视频精品视频| 精品无人区乱码1区2区3区在线| 日本成熟性欧美| 精品国产欧美一区二区三区成人| 亚洲999一在线观看www| 91豆花精品一区| 欧美久久久精品| 日韩成人中文电影| 亚洲毛片在线免费观看| www.日韩欧美| 992tv成人免费视频| 欧美性xxxxhd| 国产精品久久久久免费a∨| 日韩av在线免费| 少妇高潮 亚洲精品| 欧美中文在线观看国产| 欧美性猛交xxxx富婆| 欧美性视频网站| 久久艳片www.17c.com| 国产精品欧美一区二区| 欧美大尺度激情区在线播放| 国产999精品久久久| 亚洲第一av网站| 欧美成aaa人片免费看| 成人信息集中地欧美| 亚洲精品国产成人| 欧美性猛交xxxx乱大交极品| 国a精品视频大全| 在线亚洲午夜片av大片| 国产成人精品久久亚洲高清不卡| 97在线视频免费| 38少妇精品导航| 亚洲精品一区av在线播放| 亚洲小视频在线观看| 色噜噜国产精品视频一区二区| 日韩中文字幕网| 黄色成人在线播放| 亚洲美女免费精品视频在线观看| 国产精品99蜜臀久久不卡二区| 一区二区三区无码高清视频| 国产精品福利网站| 日本久久久久久久久久久| 51色欧美片视频在线观看| 欧美亚洲国产成人精品| 色狠狠久久aa北条麻妃| 国产精品永久免费观看| 久久最新资源网| 亚洲精品欧美日韩专区| 97香蕉久久夜色精品国产| 在线不卡国产精品| 久久国产精品久久国产精品| 久久99久久久久久久噜噜| 一区二区三区www| 九九热在线精品视频| 亚洲人成77777在线观看网| 亚洲国产成人在线视频| 日本久久亚洲电影| 亲子乱一区二区三区电影| 91精品久久久久久久久久久久久久| 日韩欧美a级成人黄色| 久久久国产精品x99av| 这里只有精品丝袜| 日韩av综合中文字幕| 大胆人体色综合| 日韩电影免费观看在线| 欧美精品www| 欧美激情网站在线观看| 日韩精品免费在线播放| 国产一区红桃视频| 欧美成人免费网| 国产精品热视频| 成人在线视频福利| 亚洲福利在线视频| 欧美国产日韩免费| 亚洲欧美激情四射在线日| 91网站免费看| 欧美日韩美女视频| 精品露脸国产偷人在视频| 国产欧美一区二区白浆黑人| 九九九久久国产免费| 国产香蕉97碰碰久久人人| 日韩精品视频免费在线观看| 米奇精品一区二区三区在线观看| 欧美激情一二区| 国产精品亚洲片夜色在线| 亚洲人线精品午夜| 欧美色另类天堂2015| 亚洲国产精品va在线| 国产精品扒开腿做爽爽爽视频| 黄色成人av在线| 国产成人在线视频| 国产精品看片资源| 欧美猛交ⅹxxx乱大交视频| 欧美最猛黑人xxxx黑人猛叫黄| 8090成年在线看片午夜| 色老头一区二区三区在线观看| 日本免费在线精品| 亚洲国产成人一区| 国产成人高潮免费观看精品| 久久久国产精品视频| 日韩在线观看免费全| 久久99亚洲热视| 亚洲aⅴ男人的天堂在线观看| 久久精品国产清自在天天线| 亚洲自拍偷拍一区| 久久国产精品影片| 成人写真视频福利网|