parse_tlbug.pl

parse_tlbug.pl

#!/usr/bin/perl

use strict;
use warnings;

my $file = "TestLinkBUG5079_1.log";
my $latestResult = "";
my $currentResult = "";
my $flag = 0;
open(FL, "<$file");

while(<FL>) {
 my $line = $_;
 chomp($line);
 if($flag == 0 && $line =~ /latest exec: null/) {
  $latestResult = "null";
  $flag = 1; # can we match the results?
  next;
 } elsif($flag == 0 && $line =~ /latest exec.*notes=Sample report (.*)\]/) { 
  $latestResult = $1;
  $flag = 1;
  next;
 }

 if($flag == 1 && $line =~ /latest exec.*notes=Sample report (.*)\]/) {
  $flag = 0;
  $currentResult = $1;
  if($currentResult ne $latestResult) {
   print "OK! Previous result: $latestResult - Current result: $currentResult\n";
  } else {
   print "ERROR! Previous result: $latestResult - Current result: $currentResult\n";
  }
 }
}