Comparing Lines and Printing the Ones that are Different

[Perl Beginner]

I am trying to compare two text files line by line and print out the lines that are different. This is the code that i have, but it's not working. Any suggestions?


[HTML]
open (REPORT_FILE, ">>$reportfile");
open (FILE, "<$file");
open (COPIED_FILE, "<$copiedfile");

my @outlines;

foreach(<COPIED_FILE>)
{
$y = 0;
$correct_line = $_;

seek(FILE,0,0);

foreach(<FILE>)
{
$results_line = $_;

if($correct_line eq $results_line)
{
$y = 1;
last;
}
}

if($y != 1)
{
print REPORT_FILE "The following lines do not match for :\n $correct_line (Known Message)\n $results_line (JWARN Message)\n";
}
}

close FILE;
close COPIED_FILE;[/HTML]

Thank you,
Terra

[KevinADC]

Are you doing a line by line comparison or comparing all lines in both files wih all the lines in each file? If the latter, build a hash of the first file and loop through the second file and see if the hash keys exists, if the former just compare each line in sequence and push the not equal lines into an array to print later.

[Perl Beginner]

I am doing a line by line comparison. So i will try what you suggested and compare each line in sequence and push the not equal lines into an array to print later. But i thought that's what i was trying to do in the code that i provided...

Thanks,
Terra

[KevinADC]

untested code, should get you started:

open (FILE, "<$file"); 
open (COPIED_FILE, "<$copiedfile"); 
 
my @outlines;
 
while (my $copied = <COPIED_FILE>) {
   chomp($copied);
   defined $line = <FILE> or die "end of file";
   chomp($line);
   push @outlines, ($copied,$line)  if ($copied ne $line);
}
 
open (REPORT_FILE, ">>$reportfile");
foreach $line (@outlines) {
   print REPORT_FILE "The following lines do not match for :\n $outlines[0] (Known Message)\n  $outlines[1](JWARN Message)\n";
}
 
close FILE;
close COPIED_FILE;
close REPORT_FILE;