blob: 475b24ee19b10db3be1c82886aef0ae86de532a0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
|
#!/usr/bin/env perl
require 5.008;
use warnings;
use strict;
use Digest::SHA;
binmode STDIN;
my $digest = Digest::SHA->new('sha1')->addfile(*STDIN)->hexdigest;
print "$digest";
|