Select Code to Download

[root@nscache2 tmp] 115# ./compare1.pl db.bind1 db.bind2
file1 and not file2:
file2 and not file1:
[root@nscache2 tmp] 116#

#!/usr/bin/perl -w

...
print grep { $found_in{$_} eq "file2" } keys %found_in;

exit;