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


Hey

The very first code you provided me with is really working fine for no
+rmal strings without any non-alphabet characters except for its not w
+orking for strings which are like
A[0]
B[1]
So please resolve this .. I tried using the fix you gave but its not w
+orking.So need to modify the code for these cases of strings also.

Rest everything is really fine.
And real thanks for all the innovative solutions you have provided.You
+ really are excellent.

[download]

Replies are listed 'Best First'.
Re^5: Search and delete lines based on string matching
by imp (Priest) on Mar 13, 2007 at 15:33 UTC
    It seems to work for me, unless I misunderstood your specs. Here are the files I am using:
    patterns.txt 
    A[0]
C
D

    [download]
    infile.txt 
    A[0]
B
C
D[0]
D1
DA

    [download]
    brut.pl 
    #!/usr/local/bin/perl
use strict;
use warnings;

if (@ARGV != 3) {
    print "Usage: $0 <pattern file> <input file> <output file>\n";
    exit;
}

my ($pattern_filename, $source_filename, $dest_filename) = @ARGV;

open my $pattern_fh, '<', $pattern_filename or die "Failed to open $pa
+ttern_filename: $!";
my @tokens = ();
while (my $line = <$pattern_fh>) {
    chomp $line;
    push @tokens, quotemeta($line);
}
my $pattern = '^(?:' . join('|', @tokens) . ')[^a-zA-Z]*$';
print "Search pattern: $pattern\n";

open my $infile, "<",  $source_filename or die "Failed to open $source
+_filename: $!";
open my $outfile,">>", $dest_filename   or die "Failed to open $dest_f
+ilename: $!";

while(my $line = <$infile>) {
    print "input : $line";
    if ($line =~ /$pattern/) {
        next;
    }
    print "output: $line";
    print $outfile $line;
}
close($infile);
close($outfile);

    [download]
    perl brut.pl patterns.txt infile.txt outfile.txt 
    Search pattern: ^(?:A\[0\]|C|D)[^a-zA-Z]*$
input : A[0]
input : B
output: B
input : C
input : D[0]
input : D1
input : DA
output: DA

    [download]
[reply]
[d/l]
[select]
      Yes it's fine except for the output should also have

D[0]
D1
DA

as I need exact matching i.e. only D in input will not delete D1 and D
+A from output.

And in the addition code, if I dont want the new outfile to be sorted.
+And it's a simple appending the strings whatever they be without any 
+string matching of file B with file A.

So in the addition requirement if A contains

B
C
F[0]

and B contains

D[0]
E

output should be 

D[0]
E
B
C
F[0]

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom