perl - 带有不包含关键字的后置上下文的 grep

Question

关闭。这个问题是off-topic .它目前不接受答案。












想改进这个问题？ Update the question所以它是on-topic对于堆栈溢出。


9年前关闭。







Improve this question




我想通过日志 grep 并收集某个异常堆栈跟踪，但我只想查看那些在 --after-context 中不包含某些关键字的异常。
我不知道关键字在上下文后的哪一行。

简单的例子 - 给定这个 shell 代码:

grep -A 2 A <<EOF
A
B
C 
R
A
Z
Z
X
EOF

输出是:

A
B
C 
--
A
Z
Z

我希望输出是:

A
Z
Z

我想排除在后上下文中具有“B”的任何匹配项

我该怎么做呢？使用 grep 不是必需的，尽管我只能访问 coreutils 和 perl。

Answer 1

这个问题很适合 awk :

 grep -A2 A LOG_FILE | awk -v RS='--\n' '!/B/ { printf "%s", $0 }'

`-v RS='--\n' 设置记录分隔符。

!/B/查找不包含 B 的记录.