1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/src/Tools/Cache_IO/lib/scripts/compute_hash_key	Tue Feb 16 15:25:36 2010 +0100
     1.3 @@ -0,0 +1,24 @@
     1.4 +#!/usr/bin/env perl
     1.5 +#
     1.6 +# Author: Sascha Boehme, TU Muenchen
     1.7 +#
     1.8 +# Compute MD5 hash key.
     1.9 +
    1.10 +use strict;
    1.11 +use warnings;
    1.12 +use Digest::MD5;
    1.13 +
    1.14 +
    1.15 +# argument
    1.16 +
    1.17 +my $file = $ARGV[0];
    1.18 +
    1.19 +
    1.20 +# compute MD5 hash key
    1.21 +
    1.22 +my $md5 = Digest::MD5->new;
    1.23 +open FILE, "<$file" or die "ERROR: Failed to open '$file' ($!)";
    1.24 +$md5->addfile(*FILE);
    1.25 +close FILE;
    1.26 +print $md5->b64digest . "\n";
    1.27 +