This is how I would do it:
- Write a regex that matches every possible "test-case" block, i.e. a block of the form:
[Case-Url] - www.google.com
[Req-URL ] - www.qtp.com
***Passed***
- Add parenthesis to the regex, to capture the parts that should be extracted (as described in the Extracting matches section of perlretut).
(In this example block, the parts to extract would be "www.google.com", "www.qtp.com" and "Passed")
- Apply the regex to the input string repeatedly, using a while loop and the /.../g regex construct (as described in the Global matching section of perlretut).
while ($input =~ /YOUR_REGEX_GOES_HERE/gs) {
print "Extracted values $1, $2, $3\n";
}
- Inside the while loop, do whatever it is you want to do with the extracted values.
If you want to collect a list of all successful tests and another lists of all failed tests, you should define two corresponding arrays above the while loop, and then inside the loop add an entry to the right array on each iteration.
If you run into further problems, report back with the regex/code you've written so far.