From f04add3196ef9db8b1ae33af693f6d96e7ffe741 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Wed, 19 Oct 2016 16:27:45 +0100
Subject: hashing function

---
 lib/AniDB/Hashing.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 lib/AniDB/Hashing.pm

(limited to 'lib/AniDB/Hashing.pm')

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;
-- 
cgit v1.2.3