regex - perlのログファイルから条件に基づいて特定のURLを抽出する

Question

このログ ファイルがあり、合格したテスト ケースのみの REQ-URL (実際には 2 行の長さ) を抽出する必要があります。合格したテストケースであるかどうかを最初に確認してから抽出するにはどうすればよいですか? このリストは 10 ページです。誰かがこの問題で私を助けてください。私はしばらくこの問題に悩まされています。

[Case MostPopular-BlogFlag] 
[REQ-URL]: http://hostname:8080/guiderest?
customerId=cisco&code=news&guide=MostPopular&attrFilter=BlogFlag:true&v=1
***Passed!***
  .
  .
  .
[Case MostPopular-BlogFlag] 
[REQ-URL]: http://hostname:8080/guiderest?
customerId=cisco&code=news&guide=MostPopular&attrFilter=BlogFlag:true&v=1
***Failed!***

よろしくお願いします。

Answer 1

基本的なステート マシンを実装する必要があります。

if ( $line =~ /REQ_URL/) {
    $maybe_line = $line ;
    $append = 1 ;
} elsif ( $line =~ /\*\*\*(Passed|Failed)/ {
      if ( $1 =~ /Passed/ ) {
         output_line($maybe_line,$line) ;
      }
      $append = "" ; 
      $maybe_line = "" ; 
} else {
    if ( $append ) {
       $maybe_line .= $line
    }
}