Comment puis-je calculer le hachage MD5 d'un fichier wav en Perl?

Question

J'ai un fichier wav et j'ai besoin de calculer le hachage MD5 de son contenu. Comment puis-je faire cela en utilisant Perl?

Answer 1

Bien sûr, vous pouvez. Recherchez simplement Digest::MD5 pour la partie de hachage et any WAV-related module si vous souhaitez hacher une partie spécifique du fichier (par exemple, ignorer les métadonnées).

Answer 2

Utilisez simplement Digest::MD5.

En fonction de vos besoins, Perceptual Hashing peut également vous intéresser. Il vous permet de comparer les fichiers en comparant leurs hachages (les contenus similaires ont des hachages similaires). Cependant, il n'y a toujours pas d'implémentation perl AFAIK.

Answer 3

Utilisation du Digest::MD5

use Digest::MD5 qw(md5); 
my $hash; 
{ 
    local $/ = undef; 
    open FILE, "$wav_file_name"; 
    binmode FILE; 
    my $data = <FILE>; 
    close FILE; 
    $hash = md5($data); 
} 

ou vous pouvez utiliser l'interface OO:

use Digest::MD5; 

open FILE, "$wav_file_name"; 

my $ctx = Digest::MD5->new; 
$ctx->addfile (*FILE); 
my $hash = $ctx->digest; 
close (FILE); 

Answer 4

En utilisant File::Slurp avec Digest::MD5:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Digest::MD5 qw(md5_hex); 
use File::Slurp; 

my ($input) = @ARGV; 

write_file "$input.md5", md5_hex(scalar read_file $input, binmode => ':raw'), "\n"; 

Answer 5

Il y a module pour elle: Digest::MD5::File. Avec elle, le code est simplifié:

use Digest::MD5::File qw(file_md5_hex); 
my $md5 = file_md5_hex($some_file_name); 

Answer 6

qui suit, sur la base a comment by user hexten, travaille pour moi et devrait faire mieux que les réponses qui Slurp le fichier:

use Digest::MD5 qw(md5_hex); 

open my $fh, '<', $file; 
my $md5 = Digest::MD5->new->addfile($fh)->hexdigest; 
close $fh; 

Le sommet (actuellement) -voted réponse suggère d'utiliser Digest::MD5::File, mais cela ne fonctionne pas pour moi au moins sur la dernière version de Windows de ActiveState Perl, et le lien dans la réponse est maintenant mort.