Skip to content

Instantly share code, notes, and snippets.

@beamzer
Created Jun 19, 2021
Embed
What would you like to do?
#!/opt/local/bin/perl -w
use strict;
use Digest::file qw(digest_file_hex);
for (@ARGV) {
print digest_file_hex($_, "SHA-256");
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment