JPRED-2 Add sources of all binaries (except alscript) to Git

[jpred.git] / sources / multicoil / temp.pl

diff --git a/sources/multicoil/temp.pl b/sources/multicoil/temp.pl
new file mode 100644 (file)
index 0000000..dc74b90
--- /dev/null
+++ b/sources/multicoil/temp.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+use strict;
+
+my $d1 = shift or die;
+my $d2 = shift or die;
+
+opendir D, $d1 or die;
+my @f1 = readdir D;
+closedir D;
+opendir D, $d2 or die;
+my @f2 = readdir D;
+closedir D;
+
+my %f1;
+foreach my $f (@f1) { $f1{$f} = 1; }
+my %f2;
+foreach my $f (@f2) { $f2{$f} = 1; }
+
+foreach my $k (keys %f1) {
+  next unless $k =~ /c$/;
+  if (defined $f2{$k}) {
+    my @d = `diff $d1/$k $d2/$k`;
+    if (@d > 0) {
+      print "\n\n===========================================\n\n$k\n";
+      foreach my $l (@d) { print "$l"; }
+    }
+  }
+}