Styjun

I am working on a framework and I have to get some regex expressions but was stuck at this point.

Execution start time 09/13/2013 02:43:55 pm

[Case-Url] - www.google.com


[Req-URL ] - www.qtp.com


***Passed***
__________________________________________________________

[Case-Url] - www.yahoo.com


[Req-URL ] - www.msn.com


***Passed***

___________________________________________________________

[Case-Url] - www.google.com


[Req-URL ] - www.qtp.com


***Failed***

In the above test results, I have to fetch the [Case-URL] and [Req-URL] for the Passed and Failed test cases . How do I get only the Case-URL and Req-URL for the passed results?

Regexes are not terribly appropriate here. Instead, split your input into chunks which you parse individually:

use strict; use warnings; use feature 'say';

<DATA>; # discard first line;
# set record separator
local $/ = "__________________________________________________________n";
while (my $chunk = <DATA>) 
 my ($case, $req, $statusline) = split /n/, $chunk;
 # possibly parse $case and $req further here
 if ($statusline =~ /Passed/) 
 say for $case, $req;
 


__DATA__
Execution start time 09/13/2013 02:43:55 pm
[Case-Url] - www.google.com
[Req-URL ] - www.qtp.com
***Passed***
__________________________________________________________
[Case-Url] - www.yahoo.com
[Req-URL ] - www.msn.com
***Passed***
___________________________________________________________
[Case-Url] - www.google.com
[Req-URL ] - www.qtp.com
***Failed***

Output would be:

[Case-Url] - www.google.com
[Req-URL ] - www.qtp.com
[Case-Url] - www.yahoo.com
[Req-URL ] - www.msn.com

This will extract the failed cases. You can then extract Case-Url and Req-Url from $fifo[0] and $fifo[3] easily . Same can be done for Passed cases.

#!/usr/bin/perl 

use strict;
use warnings;

my @fifo=('') x 7; # Initialize an empty array with size = 7 (Message Block Size)
open(FILE,"temp.txt");

while(<FILE>)

 push(@fifo,$_); # Add element to the end of array making its size 6 
 shift @fifo; # Remove first element reverting its size back to 5 
 if($fifo[6]=~/Failed/) # Check if 7th line of block has Failed in it 
 
 print @fifo;
 

close(FILE);

The suitability of regex for this particular application aside, here is a regex that will capture the passed URLs:

([Case-Url] - .*)n+([Req-URL ] - (.*)n+*3Passed*3

I couldn't get this work with in Perl mode in regexplanet, but you can see it in action at Rubular here