Re: Filtering files with lists of substitution patterns

[golux]

Hi LinuxMatt,

I'd suggest using qr to stringify each regex:

my @all_patterns = (
    qr/#.*/,
    qr/^\s+/,
    qr/\s+$/,
    qr/^Total/,
    qr/^,/,
    # ... and so on ...
);

Which avoids the overhead of calling an extra subroutine for each line of every file.

Then the apply_patterns subroutine would something like this:

 
sub apply_patterns {
    my ($string, @indexes) = @_;
    # Note $string is only a placeholder

    foreach my $idx (@indexes) {
        my $regex = $all_patterns[$idx];
        s/$regex//;
    }
}

Update:   Modified apply_patterns to work with $_[0] directly.