1#!/usr/bin/perl
2
3sub BEGIN { push @INC,"./blib/arch/auto/Digest/ManberHash","./blib/lib"; };
4use Digest::ManberHash;
5
6
7$a=Digest::ManberHash->new();
8while (@ARGV)
9{
10  $fn=shift;
11
12  $b=$a->DoHash($fn);
13  push @fn,$fn;
14  push @a,$b;
15}
16
17if (@fn == 1)
18{
19  print $fn[0],"\n";
20  $x=$a[0]{"data"};
21  @k=sort keys %$x;
22  for ($i=0; $i<@k; $i++)
23  {
24    printf "%-12s:%3d%s",
25    $k[$i],$x->{$k[$i]}, ( ($i+1) % 4) ? "    " :"\n" ;
26  }
27  print "\n";
28}
29else
30{
31  for ($i=0; $i<@a-1; $i++)
32  {
33    for ($j=$i+1; $j<@a; $j++)
34    {
35      $v=$a->Compare($a[$i],$a[$j]);
36      $f1=$fn[$i];
37      $f2=$fn[$j];
38      write;
39    }
40  }
41}
42
43
44format =
45@.####   @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<<<<<<<<<<
46$v,$f1,$f2
47.
48
49