home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1648 / sigcheck < prev   
Encoding:
Text File  |  1990-12-28  |  470 b   |  26 lines
  1. #!/cs/public/bin/perl
  2. #
  3. # sigcheck -- check signatures of pictures to see if they could be the
  4. # same.
  5. #
  6. # Reads a list of signatures with <>.  Typical usage will be to take a list
  7. # of new signatures and a list of old signatures and spit out the duplicates.
  8.  
  9. while (<>) {
  10.     if (!/\[(\d+)\]/) {
  11.     #    print "ignoring: ";
  12.     #    print;
  13.         next;
  14.     }
  15.     $s = $1;
  16.     if ($sig_got{$s} == 1) {
  17.         print "\n";
  18.         print;
  19.         print $info{$s};
  20.     }
  21.     else {
  22.         $sig_got{$s} = 1;
  23.         $info{$s} = $_;
  24.     }
  25. }
  26.