3 # Utility to compare two final/ directories for changes.
11 $max_size = shift @ARGV;
12 } elsif (@ARGV != 2) {
13 print "Usage: cmp-final [<max size>] <orig final dir> <new dir>\n";
27 foreach my $l (sort <*>) {
28 $l =~ /^.+\.(\d\d)$/ or die;
29 next if $1 > $max_size;
31 foreach my $word (<F>) {
33 $track{$word}{$l} = exists $track{$word}{$l} ? $track{$word}{$l}.$idx : $idx;
41 foreach my $w (sort keys %track) {
44 foreach my $l (sort keys %{$track{$w}}) {
45 my $which = $track{$w}{$l};
49 } elsif ($which eq '1') {
52 } elsif ($which eq '01') {
58 print "$line\n" if $diff;