Re: Perl delete function

in reply to Perl delete function

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:

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);
[download]

- Miller

* Edited to add validation for equal length files.

Comment on Re: Perl delete function Download Code

Replies are listed 'Best First'.
Re^2: Perl delete function by annel (Novice) on Dec 23, 2013 at 07:10 UTC
Greetings! Yes, I wish to compare it line by line. But there is a tricky part. What if Text1 contains only 1 line and Text2 contains 2 lines? Any suggestion would be much appreciated.	[reply]
Re^3: Perl delete function by wind (Priest) on Dec 23, 2013 at 07:36 UTC
That is why my code tested for eof (end of file) for both file handles. To complete the validation, verify that it reached the eof for both handles after the while loop. edited my code to demonstrate	[reply]
Re^4: Perl delete function by annel (Novice) on Dec 23, 2013 at 07:45 UTC
Thanks for tips. It works fine! I never knew about eof before until now. New thing to pick up.	[reply]

In Section Seekers of Perl Wisdom