Làm thế nào để có được MD5 trong Perl

Nhiệm vụ. Trong Perl mã là biến. Bạn cần phải tính toán MD5 từ những giá trị này biến.

Quyết định

Các giải pháp để sử dụng Perl thư viện Digest::MD5. Thư viện Digest::MD5 là Perl, vì vậy, nếu bạn có Perl, thư viện này là có bổ sung cài đặt, không có gì.

Được MD5 sử dụng mã này:

▶ Run
#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

my $var = 123;

my $md5_hash = md5_hex($var);

print $md5_hash;

Này, chương trình hiển thị các chuỗi '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); — chúng tôi kết nối Perl thư viện và nói rằng từ thư viện này, chúng tôi cần một chức năng md5_hex
  • my $var = 123; — tạo ra một biến và đặt giá trị 123
  • my $md5_hash = md5_hex($var); — sử dụng năng md5_hex , chúng tôi tính toán MD5 từ giá trị của một biến $var và đưa ra kết quả ở một biến $md5_hash
  • print $md5_hash; — đưa giá trị của biến $md5_hash trên màn hình

Nếu thư viện không chỉ ra rằng chúng ta cần một chức năng md5_hex, và chỉ cần viết use Digest::MD5;, khi thực hiện các chương trình sẽ được đề:

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

Các dạng của trở lại giá trị của một chức năng md5_hex

Chức năng md5_hex luôn luôn trở về một chuỗi. Chuỗi này luôn là chính xác 32 nhân vật. Dòng này có thể được những con số từ 0 tới 9 và chữ Latin trong trường hợp thấp hơn từ 'a' đến 'f'. Các ký hiệu khác trong hàng này không thể được.

Chức năng md5_hex trả về MD5 như một chuỗi trong đó có một số thập phân, ký hiệu.

Các bài viết khác