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

This node falls below the community's threshold of quality. You may see it by logging in.

Comment on Re^6: Search and delete lines based on string matching Select or Download Code

Replies are listed 'Best First'.
Re^7: Search and delete lines based on string matching by imp (Priest) on Mar 13, 2007 at 15:17 UTC
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]	[reply] [d/l]

Replies are listed 'Best First'.

Re^7: Search and delete lines based on string matching
by imp (Priest) on Mar 13, 2007 at 15:17 UTC

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]

[reply]
[d/l]