Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:
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(<FILE>) { 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"); } }
Edit: davorg - added code tags
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: simple regex (again)
by MZSanford (Curate) on Oct 23, 2001 at 15:02 UTC | |
Re: simple regex (again)
by davorg (Chancellor) on Oct 23, 2001 at 15:05 UTC | |
by graq (Curate) on Oct 23, 2001 at 15:18 UTC | |
by davorg (Chancellor) on Oct 23, 2001 at 15:23 UTC | |
by graq (Curate) on Oct 23, 2001 at 18:39 UTC | |
by Anonymous Monk on Oct 23, 2001 at 16:52 UTC | |
by Anonymous Monk on Oct 23, 2001 at 17:10 UTC | |
Re: simple regex (again)
by Zecho (Hermit) on Oct 23, 2001 at 16:37 UTC | |
by davorg (Chancellor) on Oct 23, 2001 at 16:46 UTC | |
Re: simple regex (again)
by davorg (Chancellor) on Oct 23, 2001 at 17:24 UTC |
Back to
Seekers of Perl Wisdom