blob: 555c26f77187e350f56be647c1d3791a1067e5ff [file] [log] [blame]
#!/usr/bin/perl
BEGIN {
eval { require Digest::SHA; import Digest::SHA qw(sha1_hex); 1 }
or do { require Digest::SHA1; import Digest::SHA1 qw(sha1_hex) }
}
$/=undef;
while(<>) {
print sha1_hex($_)," $ARGV\n";
}