查看日誌的高效率環境

Question 1

是的！perl代表實用提取和研究語言。

而不是使用shell語法，例如：

tail -f file | grep --line-buffered someting

或者

tail -f file | sed -une '/someting/{s/^.*:/doing some formatting/;p}'

（註：--line-bufferedin grep，像-uin一樣sed有助於防止透過固定大小的方塊進行緩衝）

對於查看/瀏覽日誌，perl是這語言。

根據還在等什麼...您可能需要建立一個小腳本來完全滿足您的需求。

您可能會在 perlfaq 中找到一些可用的範例，例如perldoc perlfaq5（或man perlfaq5如果您還沒有安裝perldoc），有一個問題：如何在 Perl 中執行“tail -f”？我在哪裡採取了這個：

第一次嘗試
seek(GWFILE, 0, 1);
該語句seek(GWFILE, 0, 1)不會更改目前位置，但它會清除句柄上的檔案結束條件，以便下一個語句<GWFILE>可以讓 Perl 再次嘗試讀取某些內容。

如果這不起作用（它依賴於你的 stdio 實現的功能），那麼你需要更多類似這樣的東西：
for (;;) {
    for ($curpos = tell(GWFILE); <GWFILE>; $curpos = tell(GWFILE)) {
      # search for some stuff and put it into files
    }
    # sleep for a while
    seek(GWFILE, $curpos, 0);  # seek to where we had been
  }

我已經多次使用它來觸發特殊情況。

示範版

作為示例，有一個quick and dirty 即時日誌計數器嘗試一下！（需讀取權限/var/log/syslog；-）：

#!/usr/bin/perl -w
my %counter;

open FH, "</var/log/syslog" or die;
my $curpos = ( stat FH )[7];
seek( FH, $curpos, 0 );

for ( ; ; ) {
    for ( $curpos = tell(FH) ; <FH> ; $curpos = tell(FH) ) {
        $counter{$3}++ if /^(\S+\s+){4}(\S+\/|)([^\/\[:]*)[\[:]/;
    }
    syswrite STDOUT, sprintf "\r%s\e[K",
      join( ", ", map { sprintf "%s:%s", $_, $counter{$_} } keys %counter );
    select undef,undef,undef,1;
    seek( FH, $curpos, 0 );
}

會產生一行，每秒自動刷新，包含所有看到的守護程式的名字和每個人的計數器：

smtp:6, pop3d-ssl:13, local:6, imapd:8, smtpd:30, CRON:5, pickup:1, named:1

Answer