Ok so we tried that and we are getting this now:
Use of uninitialized value in concatenation (.) or string at ./compare
+.pl line 25.
Here is the updated code:
#!/usr/bin/perl -w
use Array::Compare;
use strict;
my $file1 = "/var/tmp/db.bind1";
my $file2 = "/var/tmp/db.bind2";
my $out = "/var/tmp/compare_out";
open(FILE1, "$file1") || die "Can't open $file1 to read\nReason: $!\n
+";
my @file1 = <FILE1>;
close(FILE1);
open(FILE2, "$file2") || die "Can't open $file2 to read\nReason: $!\n
+";
my @file2 = <FILE2>;
close(FILE2);
open(OUT, ">$out") || die "Cant create $out\nReason: $!\n";
my $comp = Array::Compare->new(DefFull => 1);
print OUT "line $_ differs. File 1: $file1[ $_ ] != File 2: $file2[ $_
+ ]\n"
for $comp->full_compare(\@file1,\@file2);
#$comp->compare(\@file1, \@file2);
#print OUT $comp->full_compare(\@file1,\@file2);
close(OUT);
exit;
|