7 lines
174 B
Perl
7 lines
174 B
Perl
#!/usr/bin/perl
|
|
use strict ;
|
|
use warnings ;
|
|
use Digest::SHA qw( sha256_hex ) ;
|
|
|
|
my $digest = sha256_hex my $phrase = "Rosetta code" ;
|
|
print "SHA-256('$phrase'): $digest\n" ;
|