Re: simple regex (again)

[MZSanford]

in reply to simple regex (again)

You really need to use <code> tags around any code you post. If you did, it would look like this :

#!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");
}
}

I had trouble understanding the question, but the blank while () is probably not correct, i think maybe you want while (<FILE>).

---

i had a memory leak once, and it ruined my favorite shirt.