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

[brut]

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

Ok so this next code is not working in the sense it's not giving an error but its not producing the result.

I will put my files as such I am using

File A:

A[0]
B
C

File B:

A[0]
C

File C should be:

B

Also as in previous reply if instead of deleting you have to add contents of file A to end of file B with inserting some string before every string like "This string added from file A" and then the dtring from file A.

Kindly reply

[imp]

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";