http://qs1969.pair.com?node_id=474752


in reply to compare two text files

Hi,

use List::Compare;
use strict;
open (F, "a.txt")||die("a.txt File cannot open\n");
open (S, "b.txt")||die("b.txt File cannot open\n");
my @a=<F>;
my @b=<S>;
my $lcma = List::Compare->new(\@a, \@b);
print $lcma->get_complement ,"\n"; # extra present in the second array
+ 
print $lcma->get_unique ,"\n"; # extra present in the First array

[download]

I think it helps you.

Regards,
Velusamy R.

Replies are listed 'Best First'.
Re^2: compare two text files
by juergenkemeter (Novice) on Jul 14, 2005 at 05:39 UTC
    Hi! It all works fine, thank you. Next time I will post my "trying code" with my thread. In case of homework: I ordered the book "Learning Perl" today. One last question occured to me though: is there a way to put the output into a new textfile? Thanks a lot for your fast help, Jurgen
[reply]

      Hi,

      open(OUT, ">new.txt")||die("cannot create\n");

print OUT "\nExtra Text present in the second File\n", $lcma->get_comp
+lement ,"\n";
print OUT "\nExtra Text present in the First File\n", $lcma->get_uniqu
+e ,"\n";

      [download]

      You just replace the last two line of my code with the above code.

      Regards,
      Velusamy R.

[reply]
[d/l]

In Section Seekers of Perl Wisdom