为什么md5不匹配Perl的Digest :: MD5输出？

发布时间：2020-12-15 23:23:12 所属栏目：大数据来源：网络整理

导读：从ksh终端运行md5函数与简单的Perl脚本的输出不匹配. 在终端我运行： echo -n abc | md562fecf21103616856d72e6ffc9bcb06b 如果我使用Perl运行它： use Digest::MD5 qw(md5_hex);foreach (@ARGV) { print "Digest is ",md5_hex($_),"n";}exit 我明白了 ./pe

从ksh终端运行md5函数与简单的Perl脚本的输出不匹配.

在终端我运行：

echo -n abc | md5
62fecf21103616856d72e6ffc9bcb06b

如果我使用Perl运行它：

use Digest::MD5 qw(md5_hex);

foreach (@ARGV) {
   print "Digest is ",md5_hex($_),"n";
}
exit

我明白了

./perl_test.sh abc
Digest is 900150983cd24fb0d6963f7d28e17f72

在我看到的所有样本和md5函数本身的样本中,Perl看起来正确,但仅使用Ksh的那个不是：

md5 -x
MD5 test suite:
MD5 ("") = d41d8cd98f00b204e9800998ecf8427e
MD5 ("a") = 0cc175b9c0f1b6a831c399e269772661
MD5 ("abc") = 900150983cd24fb0d6963f7d28e17f72

解决方法

使用更便携的printf

printf "abc" | md5

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!