Green One has asked for the wisdom of the Perl Monks concerning the following question:

I am trying to find a script that will parse through a group of flat file and pull out only the MD5 and/or SHA hashes and dump them one line at a time to another file. The end results can be over 16,000 lines.

Replies are listed 'Best First'.
Re: MD5 and SHA Hashes
by kennethk (Abbot) on Sep 02, 2014 at 23:42 UTC
    What have you tried? What worked? What didn't? Effort is appreciated. See How do I post a question effectively?.

    Using Digest::MD5 or Digest::SHA in a one-liner makes this fairly trivial: 

    perl -MDigest::MD5=md5_hex -n0777e 'printf "%s\t%s\n", $ARGV, md5_hex 
+$_' * > file.log

    [download]
    where you should probably swap the wildcard to the right one for your directory, and may choke on your file list depending on your shell.

    #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

[reply]
[d/l]

      You don't even need Perl for this: 

      $ md5sum * >md5sums.txt

      [download]

      Substitute sha1sum (or any member of the sha*sum family) for md5sum as desired.

[reply]
[d/l]

Back to Seekers of Perl Wisdom