| author | huffman |
| Mon, 22 Mar 2010 13:27:35 -0700 | |
| changeset 35901 | 12f09bf2c77f |
| parent 35151 | 117247018b54 |
| permissions | -rwxr-xr-x |
#!/usr/bin/env perl # # Author: Sascha Boehme, TU Muenchen # # Compute MD5 hash key. use strict; use warnings; use Digest::MD5; # argument my $file = $ARGV[0]; # compute MD5 hash key my $md5 = Digest::MD5->new; open FILE, "<$file" or die "ERROR: Failed to open '$file' ($!)"; $md5->addfile(*FILE); close FILE; print $md5->b64digest . "\n";