Cómo obtener un hash MD5 en Perl

La tarea. En Perl código es variable. Se debe calcular un hash MD5 de los valores de esta variable.

La solución

La solución es usar Perl biblioteca Digest::MD5. La biblioteca Digest::MD5 , junto con Perl, así que si usted tiene un Perl, esta biblioteca vez está disponible, además no es necesario instalar nada.

Obtener un hash MD5, puede utilizar este 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 mostrará en pantalla la cadena de '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); — conectamos el Perl de la biblioteca y decimos que de esta biblioteca necesitamos función md5_hex
  • my $var = 123; — creamos una variable y poner ahí el valor de 123
  • my $md5_hash = md5_hex($var); — con la ayuda de la función de md5_hex , hemos calculado un hash MD5 del valor de la variable $var y colocamos el resultado en una variable $md5_hash
  • print $md5_hash; — sacado el valor de la variable $md5_hash en la pantalla

Si al conectar la biblioteca no especificar lo que necesitamos la función md5_hex, y simplemente escribir use Digest::MD5;, al ejecutar el programa sería un error:

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

Formato del valor devuelto de la función md5_hex

La función de md5_hex siempre devuelve una cadena. En esta línea siempre exactamente de 32 caracteres. En esta línea pueden ser los números del 0 al 9 y letras en minúscula del 'a' hasta 'f'. Otros caracteres en esta línea, no puede ser.

La función de md5_hex devuelve el MD5 como una cadena que contiene un número en notación hexadecimal.

Otros articulos