File: sha1sum.pl

package info (click to toggle)
spamassassin 3.1.7-2
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 5,376 kB
  • ctags: 2,123
  • sloc: perl: 39,706; ansic: 3,133; sh: 1,344; sql: 170; makefile: 168
file content (8 lines) | stat: -rwxr-xr-x 113 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
 
#!/usr/local/bin/perl
use Digest::SHA1 qw/sha1_hex/;

$/=undef;

while(<>) {
  print sha1_hex($_),"  $ARGV\n";
}