使用 Perl 从日志中打印 x 和 y 之间的行

Question

我有日志文件，其中包含一些 xml 消息，例如...

<fixsim xyz='tststtsts'>
  <name test="test1">
    <time t=234>
    </time>
  </name>
</fixsim>


here some normal log text
whoiwoei
blsdbndsnb

<fixsim xyz='tssts'
  <name test="test2"
<time t=234>
    </time>
  </name>
</fixsim>

等等……

从上面的日志文件中，我想在某些条件下获取 xml 消息 (from <Fixsim> to </fixsim>)。例如

我想要具有 test=test2 的 xml 消息。所以我应该得到输出

<fixsim xyz='tssts'
  <name test="test2"
<time t=234>
    </time>
  </name>
</fixsim>

Answer 1

以下将获取 XML 文档：

process($_) for $log =~ m{<fixsim.*?</fixsim>}sg;

所以会

my $xml;
while (<$log_fh>) {
   if ( my $count = m{<fixsim} .. m{</fixsim>} ) {
      $xml .= $_;

      if ($count =~ /E0\z/) {
          process($xml);
          $xml = undef;
      }
   }

   process($xml) if defined($xml);
}

获得 XML 后，您可以使用自己喜欢的 XML 解析器提取所需的字段。