📄 bits.t
字号:
#!perl -wuse Test qw(plan ok);plan tests => 2;use Digest::MD5;my $md5 = Digest::MD5->new;if ($Digest::base::VERSION) { $md5->add_bits("01111111"); ok($md5->hexdigest, "83acb6e67e50e31db6ed341dd2de1595"); eval { $md5->add_bits("0111"); }; ok($@ =~ /must be multiple of 8/);}else { print "# No Digest::base\n"; eval { $md5->add_bits("foo"); }; ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/); ok(1); # dummy}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -