Sign in
apache
/
spamassassin
/
88000b9311b6b74580a494774c0be4a7ae2d61ad
/
.
/
build
/
old
/
sha1sum.pl
blob: 3b6fa7e7baf8c8e8e6e479469a7154a3b656cb03 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
BEGIN
{
eval
{
require
Digest
::
SHA
;
Digest
::
SHA
->
import
(
qw
(
sha1_hex
));
1
}
or
do
{
require
Digest
::
SHA1
;
Digest
::
SHA1
->
import
(
qw
(
sha1_hex
))
}
}
$
/=
undef
;
while
(<>)
{
print
sha1_hex
(
$_
),
" $ARGV\n"
;
}