How to compare each and every line in File_A with the every line in File_B

**RonB** · Aug 13 '15, 08:32 PM

VenkatMC,

Please post your code so we can review it.

How big is your list of words in "File_B"?

**VenkatMC** · Aug 14 '15, 10:22 AM

Here is my code. By using this code i'm comparing the contents of File_A with the predefined string in $fine variable...But i need to read it from File_B. I'm stucked while reading from File_B and compare with File_A.

File_B contains the keywords added daily and these keywords are the suscpecious activity keywords in http log files.

Code:

#!/usr/bin/perl -w

my $find = "a2billing";
open LOGFILE, "<File_A.txt";
my @line = <LOGFILE>;
print "Lines that matched : $find\n";

for (@line)
 {
    if ($_ =~ /$find/)
    {
              if($_ =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/)
        {
                print "$_\n";
        }

    }
}
close LOGFILE;

How to compare each and every line in File_A with the every line in File_B

How to compare each and every line in File_A with the every line in File_B

Comment

Comment