From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

SIDNEY / Mail-SpamAssassin-4.0.1-pre1n-TRIAL / build / sha256sum.pl 

            

              
1
2
3
4
5
6
7
8
9
10
11

              
#!/usr/bin/perl
BEGIN {
  require Digest::SHA; Digest::SHA->import(qw(sha256_hex sha512_hex));
}
$/=undef;
while(<>) {
  print sha256_hex($_),"  $ARGV\n";
}