| changeset 35941 | 63f0d628edff |
| parent 35940 | a336af707767 |
| child 35942 | 667fd8553cd5 |
| 35940:a336af707767 | 35941:63f0d628edff |
|---|---|
1 #!/usr/bin/env perl |
|
2 # |
|
3 # Author: Sascha Boehme, TU Muenchen |
|
4 # |
|
5 # Compute MD5 hash key. |
|
6 |
|
7 use strict; |
|
8 use warnings; |
|
9 use Digest::MD5; |
|
10 |
|
11 |
|
12 # argument |
|
13 |
|
14 my $file = $ARGV[0]; |
|
15 |
|
16 |
|
17 # compute MD5 hash key |
|
18 |
|
19 my $md5 = Digest::MD5->new; |
|
20 open FILE, "<$file" or die "ERROR: Failed to open '$file' ($!)"; |
|
21 $md5->addfile(*FILE); |
|
22 close FILE; |
|
23 print $md5->b64digest . "\n"; |
|
24 |