regex - perl grep 10行日志

Question

在匹配正则表达式 "critical" 或 "error" 之前抓取 10 行代码很有趣。目前我正在打印 $_ ，它只给了我正则表达式匹配的行。

我在 perl 中写了以下内容：

#!/usr/bin/perl -w
use strict;
open LOG, "/Users/erangross/Projects/perl/log" or die;

while (<LOG>){
    if (/critical | error/){
        open (myFile, '>>parser_log.txt');
        print myFile $_;
    }


}

Answer 1

它必须是perl吗？GNUgrep让您可以选择在匹配行之前/之后打印指定数量的“上下文”行，例如

grep --before-context=10 '(critical \| error)' parserlog.txt

Answer 2

使用Tie::File. 自 Perl v5.7.3 以来它一直是核心模块，因此不需要安装。

Tie::File允许您随机访问文件中的记录，就好像它们是数组元素一样。问题被简化为简单地跟踪匹配的数组的索引，并打印索引小于 9 的所有元素。

use strict;
use warnings;

use Tie::File;

open my $plog, '>', 'parser_log.txt' or die $!;
tie my @log, 'Tie::File', '/Users/erangross/Projects/perl/log' or die $!;

for my $i (0 .. $#log) {
  next unless / critical | error /xi;
  my $start = $i > 9 ? $i - 9 : 0;
  print $plog $log[$_] for $start .. $i;
}

Answer 3

使用数组。他们可以提供帮助。在这里，我将其用作一种 FIFO 或队列：

#!/usr/bin/perl
use warnings;
use strict;

open LOG, "<", "/Users/erangross/Projects/perl/log" or die "Can't open log: $!";
open my $parseLog, '>>', 'parser_log.txt') or die "Can't open output file: $!";

my @lastTenLines;

while (<LOG>){
    push @lastTenLines, $_; # add current line.
    shift @lastTenLines while @lastTenLines > 10; # remove lines outside your scope.
    print $parseLog @lastTenLines if /critical | error/x; # print if there is a find.
}