sources/multicoil/temp.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 my $d1 = shift or die;
   5 my $d2 = shift or die;
   6
   7 opendir D, $d1 or die;
   8 my @f1 = readdir D;
   9 closedir D;
  10 opendir D, $d2 or die;
  11 my @f2 = readdir D;
  12 closedir D;
  13
  14 my %f1;
  15 foreach my $f (@f1) { $f1{$f} = 1; }
  16 my %f2;
  17 foreach my $f (@f2) { $f2{$f} = 1; }
  18
  19 foreach my $k (keys %f1) {
  20   next unless $k =~ /c$/;
  21   if (defined $f2{$k}) {
  22     my @d = `diff $d1/$k $d2/$k`;
  23     if (@d > 0) {
  24       print "\n\n===========================================\n\n$k\n";
  25       foreach my $l (@d) { print "$l"; }
  26     }
  27   }
  28 }