Sådan får MD5 hash i Perl

Opgave. I Perl-koden er variabel. Du er nødt til at beregne MD5 hash fra værdien af denne variabel.

Afgørelsen

Løsningen er at bruge Perl-bibliotek Digest::MD5. Bibliotek Digest::MD5 kommer med Perl, så hvis du har Perl, denne pakke er til rådighed for yderligere installere noget.

Få MD5 hash hjælp af denne kode:

▶ Run
#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

my $var = 123;

my $md5_hash = md5_hex($var);

print $md5_hash;

Dette program viser string '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); — tilslut vi Perl-bibliotek og sige, at fra dette bibliotek, vi har brug for en funktion md5_hex
  • my $var = 123; — oprettet en variabel, og sætte værdien 123
  • my $md5_hash = md5_hex($var); — brug af funktioner md5_hex vi beregnet MD5 hash fra værdien af en variabel $var og sætte resultatet i en variabel $md5_hash
  • print $md5_hash; — bragt værdien af variablen $md5_hash på skærmen

Hvis biblioteket ikke indikerer, at vi har brug for en funktion md5_hex, og bare skrive use Digest::MD5;, når udførelsen af programmet vil være fejl:

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

Formatet af den værdi, der returneres af en funktion, md5_hex

Funktion md5_hex altid returnerer en streng. Denne streng er altid præcis, 32 tegn. Denne linje kan være tal fra 0 til 9 og latinske bogstaver, små bogstaver fra 'a' til 'f'. Andre symboler i denne række, kan det ikke være.

Funktion md5_hex returnerer MD5 som en streng, der indeholder et tal i hexadecimal notation.

Andre artikler