simpleHash.pl

#!/usr/bin/env perl

# Marko Vihoma
# TOT Lisätehtävä 2, laskee Base64-muotoisen hajautusarvon SHA-256 algoritmilla
# annetuille tiedostoille.

use strict;
use warnings;
use Carp;
use Digest;

if($#ARGV < 0) {
  print "Usage: $0 file [file]...\n";
  exit 0;
}

my $digest = Digest->new("SHA-256");

for(@ARGV) {
  if(open(my $f, '<', "$_")) {
    $digest->addfile($f);
    close($f);
    my $sum = $digest->b64digest();
    print "(SHA-256) $sum $_\n";
    $digest->reset();
  } else {
    carp("$_ : $!");
  }
}