Digest::MD5

[Pete Emerson]

Is there a faster way to calculate the hex md5 of a file?

sub md5 {
    my $file=shift;
    open (FILE, $file) or die "Can't open '$file': $!";
    binmode(FILE);
    my $hash=Digest::MD5->new->addfile(*FILE)->hexdigest;
    close FILE;
    return $hash;
}


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]