Come ottenere un hash MD5 in Perl

Il compito. In Perl codice di una variabile. È necessario calcolare l'hash MD5 del valore di questa variabile.

La decisione

La decisione — utilizzare Perl libreria Digest::MD5. La libreria Digest::MD5 va insieme con Perl, quindi se avete Perl, questa libreria una volta disponibile, inoltre installare nulla.

Ottenere un hash MD5 è possibile con questo codice:

▶ Run
#!/usr/bin/perl

use Digest::MD5 qw(md5_hex);

my $var = 123;

my $md5_hash = md5_hex($var);

print $md5_hash;

Questo programma visualizza una riga '202cb962ac59075b964b07152d234b70'.

  • use Digest::MD5 qw(md5_hex); — colleghiamo il Perl libreria e diciamo che da questa libreria ci serve una funzione md5_hex
  • my $var = 123; — creato una variabile e messo un valore di 123
  • my $md5_hash = md5_hex($var); — con la funzione md5_hex abbiamo calcolato un hash MD5 del valore della variabile $var e messo il risultato in una variabile $md5_hash
  • print $md5_hash; — hanno il valore di una variabile $md5_hash su schermo

Se la connessione libreria non si specifica di che cosa abbiamo bisogno di una funzione di md5_hex, ma semplicemente scrivere use Digest::MD5;, durante l'esecuzione del programma sarà di errore:

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

Il formato del valore di ritorno della funzione md5_hex

Funzione md5_hex restituisce sempre una stringa. In questa riga è sempre esattamente 32 caratteri. In questa linea possono essere i numeri da 0 a 9 e lettere latine minuscole da 'a' a 'f'. Altri personaggi in questa riga non può essere.

Funzione md5_hex restituisce MD5 di una stringa che contiene il numero in esadecimale.

Altri articoli