ログを閲覧するための効率的な環境

Question 1

はい！perl賛成です実用的な抽出と研究言語。

shell次のような構文を使用する代わりに、

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

または

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

（注：--line-bufferedではgrep、-uのように、は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 );
}

1行生成され、1秒ごとに自動更新され、すべての情報が含まれる。デーモンの名前と、それぞれに対するカウンター:

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

Answer