I got the answer following is the perl script from internet, to compare file 1 and file 2 and saving result to file3
$f1 = '/u01/oracle/file1.csv';
open FILE1, "$f1" or die "Could not open file file2.csv\n";
$f2= '/u01/oracle/file2.csv';
open FILE2, "$f2" or die "Could not open file2.csv\n";
$outfile = '/u01/oracle/file3.csv';
my @outlines;
foreach (<FILE1>) {
$y = 0;
$outer_text = $_;
seek(FILE2,0,0);
foreach (<FILE2>) {
$inner_text = $_;
if($outer_text eq $inner_text) {
$y = 1;
print "Match Found \n";
last;
}
}
if($y != 1) {
print "No Match Found \n";
push(@outlines, $outer_text);
}
}
open (OUTFILE, ">$outfile") or die "Cannot open $outfile for writing \n";
print OUTFILE @outlines;
close OUTFILE;
close FILE1;
close FILE2;
|