And then I got thinking and realized that 90% of the time I am trying to match text delimited by some patterns and trying to do something with the text in between - for instance, add log statements at start and end of function calls in a VB.NET source, clean up objects at end of function etc etc.
public function f
----
----
----
.
.
----
end function
public function g
----
----
----
.
.
----
end function
Also, being able to string two (or more) filters one behind the
other was another must have feature. i.e., filtered output of the first becomes input for the second.
And being able to negate a filter would be of added use - I guess it'll just ease up stuff syntactically.
So I've been spending quite some time in the past two days and have finally the app code looks simple as I'd wanted...
#! /bin/perl
use strict;
use TextRegion::StartFilter;
use TextRegion::StartEndFilter;
use TextRegion::AndFilter;
my ($filter1, $filter2, $andfilter);
sub onMatchBegin; #app code callback
sub onMatchEnd; #app code callback
$| = 1;
$filter1 = new TextRegion::StartEndFilter('^\w+:\d+>\s*sysbuf', '^\**DONE\**ERRORBUF');
$filter2 = new TextRegion::StartFilter('^SWER');
$andfilter = new TextRegion::AndFilter($filter1, $filter2);
$filter2->onBeginEvent(\&onMatchBegin);
$filter2->onRegionEndEvent(\&onMatchEnd);
$andfilter->start;
while(<>) {
$andfilter->apply($_);
}
$andfilter->end;
Am I on top of the world today!!! :D :D. Actually, the fun part of
programming is that spark of an idea that you can build and give a tangible shape - always beats me how people can't not like programming.