MD5, opendir, and other problems in Perl...

KneeLess · 08-22-2004, 04:02 PM

Okay. I'm just writing a program that produces a list of md5sums for files in a directory. For fun. But it only outputs (from what I can see) the first md5sum. Anyone see a problem with the following code?

Code:

opendir DIR, $tmp;
foreach (readdir DIR)
{      
    next unless(-f && -r);
    open(OUT,">>$file");
    open(FILE,"<$_");
    $md5->addfile(*FILE);
    print OUT $tmp . "/" . $_ . " " . $md5->hexdigest . "\n";
    print $tmp ."/". $_ . " " . $md5->hexdigest . "\n" if $DEBUG;
    close OUT;
    close FILE;
    $md5->new;
}
closedir DIR;

Sample Output:

Code:

/home/sean/perl/srd/scripts/md5.pl~ d41d8cd98f00b204e9800998ecf8427e
/home/sean/perl/srd/scripts/whirlpool~ d41d8cd98f00b204e9800998ecf8427e
/home/sean/perl/srd/scripts/passwd.test d41d8cd98f00b204e9800998ecf8427e
/home/sean/perl/srd/scripts/passwdchk.pl~ d41d8cd98f00b204e9800998ecf8427e
/home/sean/perl/srd/scripts/sneaky.pl d41d8cd98f00b204e9800998ecf8427e

b0ng · 08-23-2004, 01:07 PM

I am playing with it right now, a couple of questions first, what version of perl are you using? I just ran it like 2 seconds ago, and didn't get any type of return.

I am looking at it, I might have to take it home, and run a debugger on it, but give me like a day, and if you still haven't found the problem, pm me, and I will tell you what I found.

KneeLess · 08-23-2004, 02:15 PM

I believe, the problem was that I used $md5->hexdigest twice. I set it to a variable, and called the variable instead of the $md5->hexdigest, and voila! It worked.