Como obter o hash MD5 do Perl

Tarefa. Em Perl código não é uma variável. Preciso calcular o hash MD5 do valor dessa variável.

Solução

Solução — o uso de Perl para a biblioteca Digest::MD5. A biblioteca Digest::MD5 vai junto com o Perl, o modo que se você tem um Perl, esta biblioteca está prontamente disponível, instalar nada.

Obter o hash MD5 usando esse código:

▶ Run
#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

my $var = 123;

my $md5_hash = md5_hex($var);

print $md5_hash;

Este programa exibirá uma mensagem de linha de '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); — unimos Perl biblioteca e dizemos que a partir desta biblioteca, precisamos de função md5_hex
  • my $var = 123; — criamos uma variável e colocar lá o valor 123
  • my $md5_hash = md5_hex($var); — usando a função md5_hex calculado o hash MD5 do valor de uma variável de $var e colocou o resultado em uma variável $md5_hash
  • print $md5_hash; — tiraram o valor da variável $md5_hash na tela

Quando o ligar a uma biblioteca de não especificar que precisamos de uma função md5_hex, e apenas escrever use Digest::MD5;, quando você executar o programa de erro:

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

O formato de retorno de uma função md5_hex

A função md5_hex sempre retorna uma cadeia de caracteres. Nesta linha sempre exatamente de 32 caracteres. Nessa linha, podem ser números de 0 a 9 e as letras em minúsculas do 'a' até 'f'. Outros personagens desta linha não pode ser.

A função md5_hex retorna o MD5 como uma seqüência de caracteres que contém o número em notação hexadecimal.

Outros artigos