如何解析文件的字符串,向后搜索另一个字符串,并将该字符串所在的整行导出到文件中

时间:2019-05-16 21:34:54

标签: perl

我试图在多个基于时间戳的日志文件中搜索匹配的短语“ ## Unable to connect”,然后向后搜索(这些都是带有时间戳的日志文件),直到找到“ ## Row”并导出该完整行文本到文件。

我需要搜索100个日志文件,这些文件指示断开连接错误(##无法连接”,并找到断开连接发生的位置(## row ....”,以分析数据的位置趋势)断开连接正在发生。

1 个答案:

答案 0 :(得分:1)

只需记录最近遇到的##Row行。

my $row;
while (<>) {
   $row = $_  if /##Row/;
   print $row if /##Unable to connect/;
}