Changeset 35

Timestamp:

Feb 14, 2003, 1:52:47 AM (23 years ago)

Author:

eugene

Message:

moved to perl directory

File:

• trunk/Ohana/src/perl/src/merge.lists (modified) (2 diffs)

trunk/Ohana/src/perl/src/merge.lists

@@ -21 +21 @@
 if (@ARGV != 3) { die "USAGE: merge.lists (list.split) (list.msplit) (list.master) [-update]\n" ;}
 
+print STDERR "$ARGV[0], $ARGV[1], $ARGV[2]\n";
+
 # load names from SPLIT and MEF
 open (FILE, "$ARGV[0]");
@@ -34 +36 @@
 @master = <FILE>;
 close (FILE);
+
+$N = @split;
+print STDERR "N: $N\n";
+$N = @mef;
+print STDERR "N: $N\n";
+$N = @master;
+print STDERR "N: $N\n";
 
 # merge new entries into a single list, compare with state in master