Bagaimana untuk mendapatkan MD5 hash di Perl

Tugas. Di Perl kode adalah variabel. Anda perlu menghitung MD5 hash dari nilai variabel ini.

Keputusan

Solusinya adalah dengan menggunakan Perl perpustakaan Digest::MD5. Perpustakaan Digest::MD5 datang dengan Perl, jadi jika anda memiliki Perl, perpustakaan ini tersedia untuk juga menginstal apa-apa.

Mendapatkan MD5 hash menggunakan kode ini:

▶ Run
#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

my $var = 123;

my $md5_hash = md5_hex($var);

print $md5_hash;

Program ini menampilkan string '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); — kita menghubungkan Perl perpustakaan dan mengatakan bahwa dari perpustakaan ini kita membutuhkan sebuah fungsi md5_hex
  • my $var = 123; — membuat variabel dan menempatkan nilai 123
  • my $md5_hash = md5_hex($var); — menggunakan fungsi md5_hex kita menghitung MD5 hash dari nilai variabel $var dan menempatkan hasilnya dalam variabel $md5_hash
  • print $md5_hash; — membawa nilai dari variabel $md5_hash pada layar

Jika perpustakaan tidak menunjukkan bahwa kita membutuhkan fungsi md5_hex, dan hanya menulis use Digest::MD5;, ketika eksekusi program akan error:

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

Format nilai kembali dari fungsi md5_hex

Fungsi md5_hex selalu mengembalikan sebuah string. String ini selalu persis 32 karakter. Baris ini dapat angka-angka dari 0 sampai 9 dan huruf Latin dalam kasus yang lebih rendah dari 'a' untuk 'f'. Simbol-simbol lainnya di baris ini tidak bisa.

Fungsi md5_hex kembali MD5 string yang berisi angka dalam notasi heksadesimal.

Artikel lainnya