系统命令"grep search_str -B3 filename" 中“-B3”的功能如何用perl中的grep命令实现？

Question

或者用perl有没有什么方便的方法实现提取所有“包括关键字的前几行”？

Answer 1

如果用逻辑去实现的话,那就打开filename文件,以行为单位遍历文本,用正则search_str进行过滤,如果符合要求,再进一步用substr(string,0,3),最后print输出

其实还有一个简单方法就是perl直接调用控制台命令

 @result = `grep search_str -B3 filename`;