Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

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]
[Tabish]: Hi to everyone :). Can i use cgi table in package to return data in
[Tabish]: return data in table

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (6)
As of 2017-12-13 07:49 GMT
Find Nodes?
    Voting Booth?
    What programming language do you hate the most?

    Results (350 votes). Check out past polls.