blob: 65277563100214ce86a10a31adf0819d7db3c9d3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
package AniDB::Hashing; use 5.024; use strict; use warnings; use experimental 'signatures'; use Digest::ED2K; use namespace::clean; sub hash_fh($fh) { my $digest = Digest::ED2K->new; while (my $bytes_read = $fh->sysread($buffer,1024*1024)) { $digest->add($buffer); } return $digest->hexdigest; } 1;
|