Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris

Re: simple regex (again)

by davorg (Chancellor)
on Oct 23, 2001 at 17:24 UTC ( #120779=note: print w/replies, xml ) Need Help??

in reply to simple regex (again)

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

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

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://120779]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (3)
As of 2018-06-24 11:12 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.