如何获得MD5hash在Perl

任务。 在Perl代码是可变的。 你需要计算MD5hash的价值这一变量。

决定

该方案是利用Perl库 Digest::MD5. 库 Digest::MD5 附带Perl,所以如果你有Perl,这种图书馆是提供给另外安装什么都没有。

得到MD5hash使用这个代码:

▶ Run
#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

my $var = 123;

my $md5_hash = md5_hex($var);

print $md5_hash;

这一程序显示的串 '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); —我们连接Perl图书馆,并说,从该图书馆我们需要一个功能 md5_hex
  • my $var = 123; —创建一个变量,并把价值123
  • my $md5_hash = md5_hex($var); —使用功能 md5_hex 我们的计算MD5hash从值的变 $var 和把结果的变量 $md5_hash
  • print $md5_hash; —所带来的价值的变 $md5_hash 屏幕上

如果库并不表示,我们需要一个功能 md5_hex,只是写 use Digest::MD5;时执行程序的将是错误:

Undefined subroutine &main::md5_hex called at a.pl line 7.

该格式的回报价值的功能 md5_hex

功能 md5_hex 总是返回的一串。 这一串是总是完全32符。 这条线可以 该数字从0到9和拉丁字母的情况下从 'a''f'. 其他符号,在这一行是不可能的。

功能 md5_hex 返回MD5作为一串,其中包含数十六符号。

其他文章