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吗？ GNU grep 使您可以选择在匹配行之前/之后打印指定数量的“上下文”行，例如

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