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