如何获得SHA1hash在Perl

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

决定

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

获得SHA1hash,可以使用这个代码:

▶ Run
#!/usr/bin/perl

use Digest::SHA qw(sha1_hex);

my $var = 123;

my $sha1_hash = sha1_hex($var);

print $sha1_hash;

这一程序显示的串 '40bd001563085fc35165329ea1ff5c5ecbdbbeef'.

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

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

Undefined subroutine &main::sha1_hex called at script.pl line 7.

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

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

功能 sha1_hex SHA1返回一串,其中包含数十六符号。

哪个版本的Perl库 Digest::SHA 立即提供

在开始的这一文本说,该图书馆 Digest::SHA 配有Perl如果你有Perl,该图书馆立即 可用。 实际上它是不是这样。 库 Digest::SHA 中首次引入了Perl版5.10. 所以如果你有Perl 版本5.8或更低,然后这个图书馆应该把此外。 但甚至更好的升级Perl到一个更近的一个。 Perl5.8发布于2002年。

其他文章