added file_md5 routine to Filesys.pm

git-svn-id: http://biopieces.googlecode.com/svn/trunk@795 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Filesys.pm b/code_perl/Maasha/Filesys.pm
index 7b959c9681b3f61758738cd4152a5003dff3b9c7..0f5f93d2d3eef8363fbd7d976e9ffd282a3b7ffb 100644 (file)
--- a/code_perl/Maasha/Filesys.pm
+++ b/code_perl/Maasha/Filesys.pm
@@ -35,6 +35,7 @@ use IO::File;
 use Storable;
 use Data::Dumper;
 use Maasha::Common;
+use Digest::MD5;
 
 use Exporter;
 
@@ -309,6 +310,31 @@ sub file_size
 }
 
 
+sub file_md5
+{
+    # Martin A. Hansen, December 2009.
+
+    # Get an MD5 sum for a given file.
+
+    my ( $file,   # file path
+       ) = @_;
+
+    # Returns a string.
+
+    my ( $fh, $md5 );
+
+    $fh = file_read_open( $file );
+
+    $md5 = Digest::MD5->new;
+
+    $md5->addfile( $fh );
+
+    close $fh;
+
+    return $md5->hexdigest;
+}
+
+
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DIRECTORIES <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 

diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index a75ca57153f2544331731c1025ac183606ca5c41..a2b3f152f6071b9992102bdb32be972c1f3ddd13 100644 (file)
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -301,7 +301,7 @@ sub kiss_index_offset
         }
     }
 
-    # Maasha::Common::error( "No offset" ) if not defined $offset;
+    # Maasha::Common::error( "No offset" ) if not defined $offset;   # FIXME
 
     return $offset;
 }