diff options
Diffstat (limited to 'lib/AniDB/Hashing.pm')
-rw-r--r-- | lib/AniDB/Hashing.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/lib/AniDB/Hashing.pm b/lib/AniDB/Hashing.pm new file mode 100644 index 0000000..6527756 --- /dev/null +++ b/lib/AniDB/Hashing.pm @@ -0,0 +1,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; |