3 lines
69 B
Perl
3 lines
69 B
Perl
use Digest::SHA qw(sha1_hex);
|
|
|
|
print sha1_hex('Rosetta Code'), "\n";
|
use Digest::SHA qw(sha1_hex);
|
|
|
|
print sha1_hex('Rosetta Code'), "\n";
|