高效的日志查看环境

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 );
}

会产生一行，每秒自动刷新一次，包含所有看到的守护进程的名字以及每个名字的计数器：

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

Answer

是的！perl代表实用提取与研究语言。