3 use vars qw(@ISA @EXPORT $MYPKG);
12 @EXPORT = qw(&testcmp);
13 $MYPKG = eval { (caller)[0] };
15 ##--------------------------------------------------------------------------
19 testcmp -- compare two files line-by-line
23 $is_diff = testcmp($file1, $file2);
27 $is_diff = testcmp({-cmplines => \&mycmp}, $file1, $file2);
31 Compare two text files line-by-line and return 0 if they are the
32 same, 1 if they differ. Each of $file1 and $file2 may be a filenames,
33 or a filehandles (in which case it must already be open for reading).
35 If the first argument is a hashref, then the B<-cmplines> key in the
36 hash may have a subroutine reference as its corresponding value.
37 The referenced user-defined subroutine should be a line-comparator
38 function that takes two pre-chomped text-lines as its arguments
39 (the first is from $file1 and the second is from $file2). It should
40 return 0 if it considers the two lines equivalent, and non-zero
45 ##--------------------------------------------------------------------------
47 sub testcmp( $ $ ; $) {
48 my %opts = ref($_[0]) eq 'HASH' ? %{shift()} : ();
49 my ($file1, $file2) = @_;
50 my ($fh1, $fh2) = ($file1, $file2);
52 $fh1 = FileHandle->new($file1, "r") or die "Can't open $file1: $!";
55 $fh2 = FileHandle->new($file2, "r") or die "Can't open $file2: $!";
58 my $cmplines = $opts{'-cmplines'} || undef;
59 my ($f1text, $f2text) = ("", "");
60 my ($line, $diffs) = (0, 0);
62 while ( defined($f1text) and defined($f2text) ) {
63 defined($f1text = <$fh1>) and chomp($f1text);
64 defined($f2text = <$fh2>) and chomp($f2text);
66 last unless ( defined($f1text) and defined($f2text) );
67 $diffs = (ref $cmplines) ? &$cmplines($f1text, $f2text)
68 : ($f1text ne $f2text);
71 close($fh1) unless (ref $file1);
72 close($fh2) unless (ref $file2);
74 $diffs = 1 if (defined($f1text) or defined($f2text));
75 if ( defined($f1text) and defined($f2text) ) {
76 ## these two lines must be different
77 warn "$file1 and $file2 differ at line $line\n";
79 elsif (defined($f1text) and (! defined($f1text))) {
80 ## file1 must be shorter
81 warn "$file1 is shorter than $file2\n";
83 elsif (defined $f2text) {
84 ## file2 must be longer
85 warn "$file1 is shorter than $file2\n";