Re^7: Search and delete lines based on string matching

in reply to Re^6: Search and delete lines based on string matching
in thread Search and delete lines based on string matching

For deletion you would use this pattern, sorry:

while (my $line = <$pattern_fh>) {
    chomp $line;
    # Use quotemeta to allow for items like A[0]
    push @tokens, quotemeta($line);
}
my $pattern = '^(?:' . join('|', @tokens) . ')[^a-zA-Z]*$';
print "Search pattern: $pattern\n";
[download]

Comment on Re^7: Search and delete lines based on string matching Download Code

In Section Seekers of Perl Wisdom