comment on

It is not clear what you are trying to do, but let me make a guess. I expect that you want to compare file for duplicates and are using MD5 as a signature to do so.

If this is the task, it will go easier if the MD5 signatures are the keys of the hash and the filenames are the file paths. that way, when you come upon a new file, simply calculate its MD5 signature, and see if that signature already exists as a hash key.

Here is some code to illustrate that:

my %file_sig;
find( \&find_dup, $root_dir);

sub find_dup
{
   my $name = $_;
   my $full_name = $File::Find::name;
   my $dir = $File::Find::dir;

   if (-f $name) {
      open IN, "<$full_name";
      my $digest = Digest::MD5->new->addfile(*IN)->hexdigest;
      close IN;
      if (exists $file_sig{ $digest }) {
         print "$full_name is a duplicate of $file_sig{ $digest }\n";
      }
      else {
         $file_sig{ $digest } = $full_name;
      }
   }
}
[download]

-Mark

In reply to Re: Handling Hash Comparison by kvale
in thread Handling Hash Comparison by omega_monk

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.


Perl-Sensitive Sunglasses
	PerlMonks