Re^5: text matching

in reply to Re^4: text matching
in thread text matching

Here is the program using a different approach with the range operator.

#!/usr/bin/perl
use strict;
use warnings;

while (<DATA>) {
    if ((my $first = /^\s*#if/) .. (my $last = /^\s*#endif/)) {
        #print if $first || $last;
        print unless /^\s*reports?/;
    }
    else {
        print;    
    }
}
[download]

Its a neat use of the range, ( .. ), operator.

Chris

Update: changed the first print line to more accurately perform what you needed.

In Section Seekers of Perl Wisdom