10 opendir D, $d2 or die;
15 foreach my $f (@f1) { $f1{$f} = 1; }
17 foreach my $f (@f2) { $f2{$f} = 1; }
19 foreach my $k (keys %f1) {
20 next unless $k =~ /c$/;
21 if (defined $f2{$k}) {
22 my @d = `diff $d1/$k $d2/$k`;
24 print "\n\n===========================================\n\n$k\n";
25 foreach my $l (@d) { print "$l"; }