note
wind
It's still not clear what exactly you want, but maybe you want a line by line comparison of the files? If so, the following will help you along:
<code>
use strict;
use warnings;
open my $fh1, '<', 'text1' or die $!;
open my $fh2, '<', 'text2' or die $!;
while (!eof($fh1) && !eof($fh2)) {
chomp( my $line1 = <$fh1> );
chomp( my $line2 = <$fh2> );
if ($line1 eq $line2 ) {
print "Match for $line1\n";
} else {
print "Difference for $line1, $line2\n";
}
}
if (! eof($fh1)) {
warn "Still more data in file handle 1\n";
}
if (! eof($fh2)) {
warn "Still more data in file handle 2\n";
}
close($fh1);
close($fh2);
</code>
<p>- Miller</p>
<p>* Edited to add validation for equal length files.</p>
1068138
1068138