📄 sha224.t
字号:
use strict;my $MODULE;BEGIN { $MODULE = ($ENV{PERL_CORE} || -e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl"; eval "require $MODULE" || die $@; $MODULE->import(qw(sha224_hex));}BEGIN { if ($ENV{PERL_CORE}) { chdir 't' if -d 't'; @INC = '../lib'; }}my @vecs = map { eval } <DATA>;$#vecs -= 2 if $MODULE eq "Digest::SHA::PurePerl";my $numtests = scalar(@vecs) / 2;print "1..$numtests\n";for (1 .. $numtests) { my $data = shift @vecs; my $digest = shift @vecs; print "not " unless sha224_hex($data) eq $digest; print "ok ", $_, "\n";}__DATA__"abc""23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7""abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq""75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525""a" x 1000000"20794655980c91d8bbb4c1ea97618a4bf03f42581948b2ee4ee7ad67"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -