perl - Perl脚本在模式匹配前后提取2行

Question

我的文件就像

line 1 
line 2 
line 3
target
line 5
line 6
line 7

我可以编写一个与目标匹配的正则表达式。我所需要做的就是捕获第2、3、5、6行。
有什么办法吗？

Answer 1

如果不确定使用perl，则可以使用grep和上下文线控制选项轻松提取所需的上下文

grep -A 2 -B 2 target filename | grep -v target

当然， target将需要用合适的正则表达式替换。