What exactly isn't working? Is it not printing any matches to the output file? Your matches are probably not succeeding due to the newlines at the ends of the patterns. Make sure you
chomp the list of patterns from params.txt. Also, for efficiency I recommend reading in the list of patterns outside of the main loop -- you don't need to re-read params.txt each time. Something like this.. (untested)
open my $params => "params.txt" or die $!;
chomp (my @params = <$params>);
close $params;
for my $filename (glob "*.RPT") {
open my $output => ">$filename.dat" or die $!;
print $output "$filename\n\nParameter Value\n-----------\n";
open my $input => $filename or die $!;
while (<$input>) {
for my $param (@params) {
print $output "$&\n" if /\s$param\s*\d*/
}
}
}
Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
Read Where should I post X? if you're not absolutely sure you're posting in the right place.
Please read these before you post! —
Posts may use any of the Perl Monks Approved HTML tags:
- a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
| |
For: |
|
Use: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.