#!perl.exe
my $filename="e:\test.out.txt";
my $output="e:\out.txt";
sub body{
if (-r $filename) {

  open(FILE,"<$filename");
  open(OUTPUT, "> $output");
  while() {
    chomp;

    if (/Datasource:/) { print OUTPUT "\n", $_; }

    if (/Passed:/) { $section="passed"; next; }
    elsif (/Failed:/) { $section="failed"; print OUTPUT "\n",$_; next;
+ }
    elsif (/Exception:/) { $section="except"; print OUTPUT "\n",$_; ne
+xt; }

    if ($section ne "passed") {
      if (/(test\.)|(Summary:)/) { print OUTPUT "\n",$_; }
    }
  }
  close(FILE);
  close(OUTPUT);
} else {
  print("cant read file ",$filename,"\n");
}
}
[download]

When you posted that node, did you see some text that said:

If something looked unlike you expected it to you might need to check out Writeup Formatting Tips

Which bit of that didn't you understand? Or do you always write your code like that?

It's much easier to help you if you surround your code in <code> ... </code> tags.

Update: Yeah, OK. I mistyped "bit" as "did". Corrected :(

"The first rule of Perl club is you don't talk about Perl club."

That's not the all of it, I have reformatted the original question (see below) - and I still am feeling unsure what it is the original post actually wants...
And there appears to be numerous other helpful suggestions to improve the code.

I would suggest that the original poster tried SEARCHING the site to look for some relevant answers, and avoid a lot more RTFM answers...

 

__REFORMATTED MESSAGE__

This works fine for outputing to file, however, still unable to assign to array without opening the output afterwards.
Would be good if I could set overall match to array at the same time as sending to output.

#!perl.exe 
my $filename="e:\test.out.txt"; 
my $output="e:\out.txt"; 
sub body
{
   if (-r $filename) 
   { 
      open(FILE,"<$filename");
      open(OUTPUT, "> $output");
      while()
      {
         chomp;
         if (/Datasource:/) { print OUTPUT "\n", $_; }
         if (/Passed:/) { $section="passed"; next; }
         elsif (/Failed:/)
         {
            $section="failed";
            print OUTPUT "\n",$_;
            next;
         }
         elsif (/Exception:/)
         {
            $section="except";
            print OUTPUT "\n",$_;
            next;
         }

         if ($section ne "passed")
         {
            if (/(test\.)|(Summary:)/)
            {
               print OUTPUT "\n",$_;
            } 
         }
      }
      close(FILE);
      close(OUTPUT);
   }
   else
   {
      print("cant read file ",$filename,"\n");
   } 
}
[download]

-- Graq's Home Page

Your reformatting has missed the fact that the AM actually had while (<FILE>). I've now added <code> tags to the original post which makes it clearer.

But not necessarily very clear :)

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."

"Which did of that" - sorry don't understand your question.

Ok Ok. Apologies for not tagging and for not checking the paste (blank while).

Ooh. Good catch.

Another good reason for not using doubled quoted strings when single quotes will do.

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."

OK, I think I know what you're asking. You want the output to go into an array as well as the file. If that's right, then this will do what you want.

#!perl.exe -w
use strict;

my $filename='e:\test.out.txt';
my $output='e:\out.txt';
sub body {
  if (-r $filename) {
    open(FILE,"<$filename") || die "$filename: $!\n";

    my (@output, $section);

    while(<FILE>) {
      chomp;

      if (/Datasource:/) { push @output, "\n$_"; }

      if (/Passed:/) { 
        $section="passed"; 
        next; 
      } elsif (/Failed:/) { 
        $section="failed"; 
        push @output, "\n$_"; 
        next;
      } elsif (/Exception:/) { 
        $section="except";
        push @output, "\n$_"; 
        next; 
      }

      if ($section ne "passed") {
        if (/(test\.)|(Summary:)/) { 
          push @output, "\n$_"; 
        }
      }
    }
    close(FILE);
  
    open(OUTPUT, "> $output") || die "$output: $!\n";
    print OUTPUT @output;
    close(OUTPUT);
  } else {
    print("cant read file $filename\n");
  }
}
[download]

"The first rule of Perl club is you don't talk about Perl club."