hashing function

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;